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Program Listings In The Transactor 

All programs listed in The Trar^sactor will appear as they would on your screen in Upper/Lower 
case mode. To clarify two potential character mix-ups, zeroes will appear as '0' and the letter 'V 
will of course be in lower case. Secondly, the lower case L {'I') has a Hat top as opposed to the 
number I which has an angled top. 

Many programs will contain reverse video characters that represent cursor movements, colours, 
or function keys. These will also be shown exactly as they would appear on your screen, but 
they're listed here lor reference. Also remember: CTRL-q within quotes is identical to a Cursor 
Down, et al. 

Occasionally programs will contain hnes that show consecutive spaces. Often the number of 
spaces you insert will not be critical to correct operation of the program. When it is. the required 
number of spaces will be shown. For example: 



print 



flush right ■ - would be shown as - print ' [10 spaces]flush right 

Cursor Charactera For PET / CBM / VIC / ft4 

Down - B Inierl - 1 

Up - I Di4«tc - D 

Right - ■ Cle«r Scrn - B 

Left - |Lft] Home 

RVS - B ST^P 

RVSOff- ■ 

Colour Characters For VIC / 64 



B 



I 



BlKk - 
White ^ 
Red 
Cyan - iCyn| 
Purpie - [Pur] 
Green - ■ ' 
BJttC - ■ 
Yeitow- [Yd] 



Orange - 
Brown 

LtRed - 

Greyl - 

Grey 2 - 
Lt. Green - 

LI. Biue - 

Grey 3 - lGr3) 
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MacLean Hunter Printing 



Function Key» For VIC / 64 



Fl 
F2 
F3 
F4 



F5- 
F6- 
F7- 
F8- 
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SoftBound 

What is happening?! Creative Computing, ]) years publishing, gone. 
Popular Computing, gone. InfoAge, Commander, Micro, Kilobaud, Soft- 
ware Now, all gone. This list goes on. too^ into areas outside those covering 
Commodore equipment. One report I recall slated "out of 160 computer 
magazines that were publishing in 1982, only 35 remain today". The 
common complaint is a lack of advertising revenue due to a "soft" market. 

In his closing editorial, Creattve's David Ahl complained that most adver- 
tising had become a decision based on "lowest cost per thousand readers ", 
But I think the industry is getting smarter than that, InfoAge's Gordon 
Campbell does too. "InfoAge suffered from not being able to deliver a 
stable market to our advertisers", we became too "heterogenous" as 
quoted from Toronto Computes. Vertical magazines offer the reader more 
reading per dollar. So it's only natural that more readers, who are also 
getting smarter, will be attracted to the higher concentration. Indications 
are that many firms are spending their ad dollars in magazines that have a 
tighter focus on the industry. Ahl's complaint becomes one of semantics. It 
only a fraction of each thousand readers can be qualified^ cost per 
thousand goes way up. 

However, I admit the horizontal publications couldn't just pull a brand 
from a hat, and focus. They could have, but they wailed loo long, i also 
suspect not enough deflection on the "lean and trim' meter. Because what 
confuses me most is that all the above mags did have ads. Almost half of 
Creative's % page final was advertising! 

Now I don't claim we are immune to the same fate because we seem to be 
afloat without ad revenue. Not at all For the last 9 issues we have 
depended on nothing but sales. Di^ributors have told us, "publishers 
would sell their souls for your stick rate at the news stand". But it just 
doesn't seem to be enough. Is this an S.O.S.? No. But If you know a place 
where one more Transactor might be sold, you can help. Write their name 
and address on our postage paid subscription form and check off the box 
marked "please send dealer information". You can bet we'll get in touch 
wi(h them, but please use discretion. In the magazine distribution business 
you soon learn that not every smoke shop and convenience store is a 
suitable venue. We're looking for outlets thai specialize in reading material 
as much as we do. And who knows - you may just help yourself get 
Transactor a little closer to home. 

Why all the malarky about advertising? We have other plans too. The 
Transactor has decided to offer ad space. Several requests have been 
denied over the last 9 issues, as will several more over those to come. Since 
we <io seem to be surviving without ad revenue, we're going to be very 
selective alxjut the ads we accept. Our standards are high and we have a 
keen sense on our focus. Advertising of little or no value to our readers will 
not be considered- In fact, we would have to feel good enough about the ad 
to want to sell that product or service. Which leads me to the next phase of 
our plan. 

With prices dropping everywhere except in ad rales, it comes as no 
surprise that advertisers are indeed ''tightening up". Retail prices can only 
drop so low. The manufacturer, distributor, and retailer all take their 
percentage and when it slops adding up, they all feel the pinch. On the 
other hand, the mail-order business has very low operating costs which is 
ideally suited to items priced low enough to move. You may have noticed 



we're selling The Toolbox through mail-order at t50 off suggested retail. 
We like this package and il you think we'll like yours as much, talk to us. 
Your percentage wouldn't change, but the possibility of subsidizing the 
cost of advertising with a merchandise exchange is open for discussion. 
You could look me up in Toronto directory assistance, but Til save you the 
trouble. It's416 221 2922 any lime. 

Does this mean the end of the 95 % Ad Free Transactor? No way. Only 7 
pages will be available to start - the cover spots and a four page glossy 
insert at the center of the magazine. 7 over 88 makes only 8% advertising, 
and if response warrants more ad space, the editorial content will be 
increased to maintain the ratio. Colour ads will get higher preference, but 
again, only if they meet with criteria. 

By expanding our horizons The Transactor will become even more 
insulated from the ad space insertion order. Magazine quality control will 
propagate through to our mail-order operation where we have the opportu- 
nity to strengthen our sales, help stimulate the industry we believe in, and 
at the same lime offer a trustworthy service to our readers. 



In brief, our 20/20 deal still stands - order 20 anything lor 20% off. Our 
Vlewtron section should be operational by Febmary - sign on and enter 
"transactor", and we'll have a complete explanation for you next issue. 
The "uitra-glazed" cover means you can casually wipe off any coffee spills, 
and you're looking at our very first experiment with "spot colour". And 
yes. it looks like there will be another Inner Space Anthology, but not for at 
least another 5 months. We're making this early notice mainly for your 
input. If there's a table, listing, chart, diagram, index, illustration, or any 
other skiagraphical cartographic images you may have, let us know. Often 
they can be computer generated and my typesetting instincts are down to a 
reflex. Anyone who is aware of errors in the first edition is invited to send 
them along. We have a couple copies of published magazine reviews 
(TPUG, ICPUG, PCA) but if you know of others, a copy would be sincerely 
and personally appreciated. 

Some of the items we have planned for the next Anthology include new 
material for the 68000 and the Amiga, CI 28 stuff, Z80/Z80B specs and CP/ 
M for posterity, 1571 notes, MS DOS commands, a modem section, more 
printer inio, more hardware specs, an updated BBS and club listing, 
DataPac and other network parameter settings plus a listing of time- 
sharing call addresses. Tentatively planned are Jim Butlerfield's com- 
mented disassembly of the C64 and C128. They're pretty long so I'll be 
forced to reduce the type to near microscopic, but even then they may 
consume too much space. I'm also considering a table of popular guitar 
chords and their finger positioning - as my choice for the "wonder-why- 
thai 's-t he re" category. 

There is nothing as constant as change. I remain 




Karl J.H.Hildon, Editor In Chief 

P,S. Could someone help me? Tm looking for engineering software for any 
CBM ie. calculating forces, analytical geometiy, etc. 
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Using "VERIFIZER" 



The Transactor's Foolproof Program Entry Method 



VERIFIZER should be run before typing in any long program from 
the pages of The Transactor. It will let you check your work line by 
line as you enter the program, and catch frustrating typing errors. 
The VERIFIZER concept works by displaying a two-letter code for 
each program line which you can check against the corresponding 
code in Ihe program listing. 

There are two versions of VERIFIZER on this page; one is for the 
PET, the other for the VIC or 64. Enter Ihe applicable program and 
RUN it. Ifyougel the message, ""*•"' dalaerror '*»**", re-check 
the program and keep trying until all goes well. You should SAVE 
the program, since you'll want to use it every time you enter one of 
our programs. Once you've RUN the loader, remember to enter 
NEW to purge BASIC text space. Then turn VERIFIZER on with: 



SYS 828 to enable the C64/VIC version (turn it off with SYS 831 
or SYS 634 to enable Ihe PET version (turn it off with SYS 637) 



Once VERIFIZER is on, every lime you press RETURN on a 
program line a two-letter report code will appear on the top left of 
the screen in reverse field. Note that these letters are in uppercase 
and will appear as graphics characters unless you are in upper/ 
lowercase mode (press shift/Commodore on C64/VIC}. 

Note: If a report code is missing it means we've editted that line at 
the last minute which changes the report code. However, this will 
only happen occasionally and only on REM statements. 



With VERIFIZER on, just enter Ihe program from the magazine 
normally, checking each report code after you press RETURN on a 
lineJfthecodedoesn'Imatchupwith the letters printed in the box 
beside the listing, you can re-check and correct Ihe line, then try 
again. If you wish, you can LIST a range of lines, then type 
RETURN over each in succession while checking the report codes 
as they appear. Once the program has been properly entered, be 
sure to turn VERIFIZER off with the SYS indicated above before 
you do anything else. 

VERIFIZER will catch transposition errors (eg, POKE 52381,0 
instead of POKE 53281 ,0), but igimres spaces, so you may add or 
omit spaces from the listed program at will (providing you don't 
split up keywords!). Standard keyword abbreviations (like nE 
instead of next) will not affect the VERIMZER report code. 

Technical info; VERIFIZER resides in the cassette buffer, so if 
you're using a dalasette be aware that tape operations can be 
dangerous to its health. As far as compatibility with other utilities 
goes, VERIFIZER shouldn't cause any problems since it works 
through the BASIC warm-start link and jumps to the original 
destination of the link after it's finished. When disabled, it restores 
the link to its original contents. 



Listing 1a: VERIFIZER for C64 and VIC-20 



Listing 1b: PET/CBM VERIFIZER (BASIC 2.0 or 4.0) 



KE 


10 rem* data oaderfor " 


verifizer " * 




CI 


JF 


1 5 rem vic/64 version 






CF 


LI 


20cs = 






LI 


BE 


30fori = 828lo958:read 


a:poke i,a 




HC 


DH 


40cs = cs + a;nextJ 






DH 


GK 


50. 






GK 


FH 


60itcs<>1 4755 then print "****• data error *•***"; end 


OG 


KP 


70 rem sys 828 






JO 


AF 


80 end 






AF 


N 


100: 






IN 


EC 


1000 data 76, 74, 3, 


165,251,141, 2, 


3, 165 


ON 


EP 


1010data252, 141, 3, 


3, 96.173, 3, 


3,201 


IB 


OC ' 


1020data 3,240. 17. 


133,252, 173, 2. 


3,133 1 


CK 


WN 


1030data25l, 169, 99, 


141, 2, 3, 169, 


3,141 I 


EB 


MG 


1040 data 3, 3, 96, 


173,254, 1,133, 


89, 162 


HE 


DM : 


lOSOdata 0, 160. 0, 


189, 0, 2,240, 


22,201 


01 


CA 


loeodata 32,240. 15, 


133, 91,200.152, 


41, 3 


JB 


NG ■ 


1070 data 133, 90, 32, 


183, 3, 198, 90. 


16,249 


PA 


OK ; 


1080 data 232, 208,229, 


56, 32,240, 255, 


169, 19 


HE 


AN j 


1090 data 32,210,255, 


169, 18, 32,210, 


255, 165 


EL 


GH 


llOOdata 89, 41, 15, 


24,105, 97, 32. 


210,255 


LA 


JC 


11 10 data 165, 89, 74, 


74. 74, 74, 24, 


105, 97 


Kl 


EP 


11 20 data 32,210,255, 


169,146, 32,210, 


255, 24 


EB 


BH 


11 30 data 32,240,255, 
1140data101, 89, 133, 


108,251, 0, 165. 
39, 96 


91. 24 


DM 





10 rem* data loader for "verifizer 4.0" * 

15 rem pel version 

20cs = 

30 for I = 634 to 754. read apokei.a 

40cs = cs + a.next i 

50: 

60 if c£<>15580ttien print" ••*•" data error <---""; end 

70 rem sys 634 

80 end 

100: 

lOOOdata 76, 138, 2, 120, 173, 163, 2, 133, 144 

1010data173, 164, 2,133,145, 88, 96,120,165 

1020 data 145, 201, 2,240, 16,141,164, 2,165 

1030 data 144, 141, 163, 2, 169, 165, 133. 144, 169 

1040data 2,133,145, 88, 96. 85.228,165,217 

1050data201, 13,208, 62,165,167.208. 58,173 

1060 data 254, 1,133,251, 162, 0,134.253,189 

1070data 0. 2,168,201, 32,240, 15,230,253 

1080data165,253. 41, 3,133,254, 32,236. 2 

1 090 data 1 98, 254, 1 6, 249, 232, 1 52, 208, 229, 165 

n00dala251, 41, 15, 24,105,193,141, 0,128 

1110data165,25l, 74. 74, 74, 74, 24,105,193 

n20data141, 1.128,108,163, 2,152, 24,101 

n30data251. 133,251, 96 
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Bits and Pieces 



Cot an interesting progromming tip. short routine, or an un- 
known bit of Commodore trivia? Send it in - if we use ii in the 
Bits & Pieces column, we'll credit you in the column and send 
you a free one-year's subscription to The Transactor 



SAVERIFY 



Bob Hayes 
Winnipeg, Manitoba 



This is a short program which enables the 64 (and possibly 
oJher Commodore?) owner to SAVE and VERIFY a program 
with one command. The format is: 

SYS(address)^ filename", 8 

Where the address is the start of the machine language code 
(relocatable in the BASIC loader). 



Here is the assembly: 



start 



jsr 


$e1d4 


jsr 


$e159 


Ida #$01 


sta 


$93 


bit 


$00a9 


sta 


$0a 


jsr 


$e16f 


rts 





And the BASIC loader: 

10 rem •• saverify — bobhayes** 

20 rem *• wpg, man. canada *• 

25 sa = 828; rem start address-note: relocatable 

30q$ = chr$(34);a = 0:forx = 0to18: readq: pokesa + x,q 

: a = a+-q: next 
40 print: print " format: sys" saiq$ "" filename ^ q$ \8 - 
50 end 
60 data 32,212,225,32,89.225,169,1, 133,147. 

44,169,0,133,10,32,111.225,96 



Double Verifizer 



Steven Walley 
Sunny mead, CA 



When using "VERIFIZER' with some TVs, the upper iefl corner 
of the screen is cut off, hiding the verifizer-displayed codes. 
The program below, 'DOUBLE VERIFIZER' solves that problem 



by showing the two-letter verihzer code on both the first and 
second row of the TV screen. The program uses the interrupt 
vector to update the screen every I /60 of a second. 

To use Double Verifizer. just run the below program once the 
regular Verifizer is activated. 



1 00 tor ad = 679 to 720. read da: poke ad,da;next ad 

110sys679: print: print 

120 print "double verifizer activated": new 

130data120, 169,180,141, 20, 3 

140data169, 2.141, 21, 3, 88 

150data96, 162, 0.189. 0,216 

160 data 157, 40,216,232,224. 2 

170 data 208, 245, 162, 0,189, 

180 data 4, 157, 40, 4,232,224 

190 data 2,208,245, 76, 49,234 



Corrupting RAMI AS Update 



Yijun Ding 
Rttsburgh, PA 



"Corrupting RAMTAS Routine" in Bits and Pieces Volume 6, 
issue 4 mentioned the fad that $A0O0 will contain $55 after a 
reset. But there is more, RAM from $FD30-$FD4F will be 
written with the contents of the corresponding ROM, as the 
routine at $FD15 ($FF8A, reset vectors in $0314-$0333) is 
called in a reset process. Actually, the RAM at $FD30-$FD4F 
will be corrupted every time $FD15 is called. 



Finding the Missing File 



Jeffery Coons 
Lake Ridge, Virginia 



If a program bombs because it needed some file that wasn't on 
the disk, you can find out what file the program wanted with 
this one-liner: 

for ; = to peek(1 83)-1 : poke 1 024 + i, 
peek(peek(1 88)'^256 + peek(1 87) + i}: next 
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The name of the last file used wilt be displayed at the top left- 
hand corner of the screen. You have to POKE lo the screen in 
this manner because PRINTing will corrupt the last character in 
the siring. Users with ROM version 2 will have to also POKE lo 
colour memory (at 55296 + i) or make sure there is some text 
already on the top line of the screen. 



LOAD & RUN Trick 



Chris Wong 



- . -A really neat load and run trick: After you type 

load"filename\8,1 
or toad "filename " ,8: 

Press shifted RUN/STOP instead of RETURN. The program will 
automafically RUN itself after loading, it eliminates the old 
load/return/run/return routine, easing up loading a bit. 



Check For Device Present Dave Pollack 

Commodore E. Brunswick 
Users Group (CEBUG), E. Brunswick ,NJ 

As most every C-6A user knows, the 'DEVICE NOT PRESENT' 
message and consequent crash is not the most pleasant experi- 
ence in the world to endure. Believe me, ( Ve been searching 
for close to a year for ANY solution that will work. It was not 
that obvious. I stumbled upon it quite by accident after coding a 
small routine that provided a way for me lo print the value of 
the "ST" variable after multiple I/O operations. If you do that 
you'll notice something interesting. An OPEN followed by an 
immediate CLOSE will not hang the computer even if the 
device is not present, but it allows you to interrogate ST which 
returns a nonzero result in this case. 

If you use the following code, your program will be able to 
check for DEVICE NOT PRESENT and continue without bomb- 



ing. 



100 open 15,8,15: close 15 

110itsl<>-128then160 

120 print " I! DRIVE NOT PRESENT I! " 

130 print "## check drive power and cables, then 

press a key ## " 
140 geta$:if a$= " Mhen 140: rem wait for a key 
1 50 goto 1 00 
160 rem program continues. . , 



beginning of another. Whining about it does no good {IVe 
tried), but word-wrap does. Place the string you want wrapped 
in V$', the desired line width in 'w', and call this routine. 

100 rem* recursive word-wrap routine ' 

110 rem* put string in w$, 

120 rem* ime width in w 

130: 

140iflen(w$}>wthen160 

150 print w$: return 

160p-0:fori = wto1 step-1 

1 70 if p = and mid$(w$,i,1 ) = " " then p = i 

180 next: h$ = right${w$,len(w$)-p) 

1 90 w$ = left$(w$,p): gosubl 50 

200w$ = h$: goto 140 

Since strings in Microsoft BASIC can be up to 255 characters 
long, you tan easily squeeze five screen lines into w$ with the 
peace of mind that can only come from the knowledge that it 
will be formatted legibly. But beware! the routine is recursive, 
and assumes that words in the text will be separated by spaces. 
If the length of w$ is greater than 'w' and 'w$' contains no 
spaces it will loop forever, so avoid hyphenated words that 
might be longer than your desired line length (or modify line 
170 lo look for hyphens, too)- 



Visible "searching" Messages Terry Montgomery 

Auckland, INew Zealand 



n direct mode you get 'SEARCHING' and 'FOUND' messages 
that teil you what is going into the computer. These messages 
can be extremely helpful, especially when using tape. But 
when LOAD statements are encountered in program mode, the 
messages are suppressed- During program development^ it 
would be nice to see what's going on a bit more. Here are two 
ways to see these messages from a running program; 



1) Use GOTO instead of RUN to start the program. If the first 
line is 0. GOTO doesn't need a line number specified, 

2} POKE 157,128 to flag direct mode. This can be turned off by 
POKE 1 57,0. This way you can get messages from one parr of 
the program and block Ihem from others. 



C-64 Scroll Down Routine 



Chris Johnson 
Toronto, Ont, 



Word-Wrap For VIC, 64, PET, etc. 



Gary Royal 
Chicago, IL 



There never seems to be enough columns on the screen to 
display what you want to print on it. And there's nothing uglier 
than a word hanging partly on the end of one line and at the 



In Volume 5, Issue 2 of The Transactor, Paul Blair reported a 
ROM routine that scrolled down the screen of a C-64, He also 
mentioned that it "left some pointers a bit untidy . . , a PRINT 
or two seems to restore order". 



found that a PRINT or two did not set things right; however, 
resetting the screen line link table did. The following routine 
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dears the link table before and after calling the scroll-down Tve found a shorter and easier way to RESTORE X. using 
routine. TransBASlC: 



The syntax to use is: 

SYS address, n, topline 

Where n is the number of times you want the screen to be 
scrolled down one line and topline (0 to 24) is the last line not to 
be scrolled. All the lines below this will be scrolled down x 
times. 

To change the location of the routine, just change the value of s 
in line 1 10. The loader will make the necessary changes to the 
machine code. 



AF 
fvIO 
OL 
PH 
Dl 
LA 
E8 
01 
GM 
CB 
AG 
PN 

BE 
KF 
HB 
KD 
FH 
AD 
GJ 



100 rem* c-64 scroll down • 

11 s = 491 52: rem start address (relocatable) 

120fori = stos + 33: read a: poke i, a: next 

130 print" "* scroll down - syntax: " 

140 print "sys"s\n, topline" 

150 print" Where'n' = number of lines to scroll" 

160: 

170 if 5^49152 then end 

180 u = S + 22: ju = s + 7: r = s + 34: jr-s + 4 

190|j=^s + 18 

200 poke ju -+- 1 ,u/556: poke ju,u-'256*peek(iu + 1) 

210 poke j|+1,r/256: pokej),r-256*peektJj + 1) 

220 poke jr+1,r/256; pokejr,r'256-peek(]r+-1) 

230: 

240data 32,241,183,142, 34,192, 32, 22 

250data192, 32,241.183,134,214, 32,101 

260 data 233, 206, 34,192,208,248,162, 24 

270data181,217, 9,128, 149,217,202,208 

280 data 247, 96 



Easy 'RESTORE x' 
Using TransBASiC 



Andy Hochheimer 
Wallaceburg, Ont 



I have been using a lot of DATA statements in programming for 
quite awhile. 99% of the time 1 have to RESTORE then search 
for my data on a specific line number before reading again. In 
Transactor Volume 5 Issue 3 was this 'RESTORE x' program 
from Gary Kiziak, which allowed a RESTORE to a specific line 
number: 

10restr = 828: for k = restr to restr + 31:read j poke k,j: next 
20dala 32.253.174. 32,158,173, 32,247 
30data183, 32, 19,166,175, 5,162, 17 
40 data 76, 55,164,165, 95,233, 1.133 
50 data 65.165. 96.233, 0,133, 66, 96 
60 rem format: sys reslr x 



10doke65,tine(x)-»-4 

This incredible program line does work; location 65 is the 
Current DATA Address. !t restores the pointer to the first byle of 
line X. The 4 is added to avoid reading the last data element of 
the previous line. This is a small sample of Ihe great things you 
can do with TransBASlC! 



Sneaky Saves 



Terry Pridham, Belmont, Ont. 



In Vol 5 issue 3, "Unveiling The Pirate Part 2: Programming 
Sleight of Hand" - 'Ye Olde Standbye', where by using a 
shifted-space before the filename within t^uotes produces a 
directory that shows two quotes followed by the filename: 

save " 0. [Shift-space]ijlename " ,8 

In the directory it becomes: 

3 " "filename prg 

By experimenting with it, I found even more ways to twist the 
minds of Pirates (as if they weren't in the first place). Ever see 
directories where the name of the program is in reverse field? 
Well here's how it's done. Type: 

save,1 quote, drive number, colon, 1 quote, rvs on. 1 
deiete, 2 inserts, shift-M, rvs on, rvs off, filename, quote, 
comma, device number 

When done, it will appear something like: 



save ■'0:|fflBfilename",8 



(n the directory, it will show the block count and the first quote 
where it would normally appear. The shifted M causes a 
carnage return (because a shifted reverse M is a '13') and the 
filename will appear right under the block count in reverse 
field. The file type indicator (i.e. "prg") and the spaces preced- 
ing il will also appear in reverse field. 



Try adding a couple DEl-s, or even cursor control characters, by 
hitting 1 Insert for every control character you wish to include 
immediately before the filename. However, you must remem- 
ber what characters are in this "prefix" in order to LOAD that 
file. Experiment and have fun! 
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Sanitation Engineer Fred Simon 


neer is written over the old collection routine. In addition, the 


Gibbsboro, New Jersey 


READY, prompt is changed to READY! to remind you that 




Basic has been modified. If you hit Run/Stop-Restore, the 


Did you ever have to wait for several minutes while your 


Sanitation Engineer will be deactivated. To reactivate, just type 


computer collected ''garbage" strings? Garbage collection on 


SYS 5 1740. Try the test program you typed in earlier. Change D 


the C-64 has been known to take more than twenty minutes 


to 5000 and try again. No more delays!! 


when a large number of strings need be processed. With the 




program ^'Sanitation Engineer", active strings are collected 


Sanitation Engineer Basic Loader 


lightning fast. 












PI 


1 rem save " O:sanitation 64 " ,8 


Wiiat Is Garbage CoilecUon? 


DD 


100 rem sanitation engineer 


*"^ 


FN 


1 1 rem for the commodore 64 


Each lime the Basic interpreter encounters a new string varia- 


BP 


120 rem by fred simon 8/85 


ble definition, it builds that string character by character in 


HO 


1 30 ck = 0: for i = 51 740 to 52223: read d 


high memory, working downward from location 40960, If a 


BP 


1 40 poke i,d: ck = ck + d: next 


string variable is changed, the old string remains in memory as 


EG 


150 if ck = 63591 then sys51 740: end 


"garbage", f the available free memory is less than the maxi- 


GK 

1 


1 60 print " error in data statements " : stop 


mum length of a couple of strings, or if the Basic command ; 


JOB 


170: 


FRE(O) is issued, the garbage collection routine is called. This 


iMD 


180 data 120,169, 55,133, 1,169,160,133 


routine looks at each string variab e to find the one stored 


HL 


1 90 data 3, 1 60, 0, 1 32, 2, 1 77, 2, 1 45 


highest in memory, moves all of the other strings down by the 


AN 


200 data 2, 136, 208, 249, 230, 3, 165, 3 


length of this string, and then copies the string to the top of 


JH 


210data 201,192,208,241,169, 54,133, 1 


available memory. The length of time it lakes to complete this 


. NC 


220data 88, 169, 5, 141, 143, 183, 169, 33 


task depends only on the number of strings and not their 


LG 


230data 141,125,163,162, 2,189, 83,202 


length. 


BF 


240 data 157, 38,181,202. 16,247, 96, 76 




JK 


250 data 86, 202, 1 69, 0,141, 239, 203, 1 69 


To see garbage collection at work, try this program: 


EG 


260 data 15,133,250, 169,224, 133,249,165 




Nl 


270data 52,141,240,203, 56,229, 50,201 


10d = 500:dimx$[d) 


NE 


280 data 19, 144, 22,233, 3, 133,250,165 


20 for j = to d. x$(j) = str$(j): next 


ND 


290 data 50, 1 05, 0, 1 33, 249, 1 65, 56, 229 


30 print " starting collection. , . " 


DB 


300 data 52, 105, 1,197,250, 176, 2,133 


40.t = ti:j = fre(0} 


EK 


310data 250,165, 56,141,242,203,165, 55 


50 print (ti-t)/60" seconds" 


GD 


320 data 141,241,203,133, 51, 24,240, 1 




Gl 


330 data 56,173,242,203,133, 52,233, 


Change the value of D in line 10 to see the effect of increasing 


KJ 


340data 133,251,105, 0,133,252,165, 50 


the number of strings. ; 


KB 


350data 105, 1,133,254,165, 45,233, 6 




HJ 


360 data 133, 95,165, 46,233, 0,133, 96 


Faster Collection 


NK 


370data 165, 47,133,253,165,251,205,240 




BL 


380data 203,144, 51,229,250,133,248,165 


One way to speed up garbage collection is to first copy the 


EA 


390data 52,229,251,229,248, 73,255,105 


string memory to a buffer area (Sanitation Engineer uses the 


OK 


400 data 2, 197,248, 144, 2, 165,248,205 


area located underneath the Kernal ROM). Each active string 


Jl 


410 data 240,203,176. 5,173,240,203,233 


can then be pulled out of the buffer and written to the c ean 


Dl 


420 data 0,133,251, 32,138,203,166, 48 


siring area. The bottom of the string memory is then the bottom 


BO 


430 data 32,243,202,176, 9, 32, 39,203 


of the last active string copied from the buffer. Sanitation 


CC 


440 data 165,251,133,252,144,182, 96, 24 


Engineer is written as a " patch " to the Basic operating system. 


GC 


450 data 165, 95,105, 7,133, 95,144, 2 


It uses the area of memory from 51740-52223 for the garbage 


KF 


460 data 230, 96, 69, 47,208, 4,228, 96 


collection routines. Thus, it can be used with the DOS Wedge 


PM 


470data 240, 31,160, 0,177, 95,200, 81 


and leaves 49152-51739 free for other machine language 


FC 


480dala 95, 16,228,177. 95, 16,224,160 


routines- 


DC 


490data 4,177, 95,197,251,144,217,197 




JA 


500data 252,176,212, 32,170,203,144,208 


Type in and Save Sanitation Engineer. A mistake in one of the 


IMF SlOdata 96, 24, 96, 32, 83,203,176,249 


Data statements could cause your computer to lock-up when 


MA 


520data 160, 2,177, 95,197,251,144, 10 


the routine is executed. A checksum is included to reduce the 


NJ 


530data 197,252,176, 6, 32,170,203,144 


chance of errors. When you Run the program, Basic ROM is 


C 


540 data 2, 96, 24,169, 3,101, 95,133 


first copied to RAM. The new address for the Sanitation Engi- 


DJ 


550 data 95,144, 2,230, 96,197,253,208 
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KJ 


560 data 


223, 


228, 96, 


208.219,240,212, 


24 


CL 


570 data 


165, 


253. 133, 


95,134, 96, 69, 


49 


JE 


580 data 


208, 


4, 228, 


50,240, 39, 160, 


2 


LH 


590 data 


177, 


95, 101, 


95, 133,253,200, 


177 


AH 


600 data 


95, 


101, 96, 


170,160, 0, 177, 


95 


KG 


610 data 


200, 


81, 95, 


16,218,160, 4, 


177 


HL 


620 data 


95, 


10,105, 


5,101, 95,133, 


95 


MJ 


630 data 


144, 


3, 230, 


96, 24, 96,165, 


248 


EA 


640 data 


133, 


79, 165, 


249, 133, 89,160, 





OM 


650 data 


132, 


78, 132, 


88, 166,250,232, 


177 


EE 


660 data 


78, 


145, 88, 


200, 208, 249, 230, 


89 


IF 


670 data 


230, 


79, 202, 


208,242, 96, 72, 


120 


JD 


680 data 


169, 


53, 133, 


1, 104,197,248, 


144 


KM 


690 data 


5,; 


329, 248, 


24, 101,249,133, 


79 


Dl 


700 data 


136, 


177, 95, 


133, 78,136, 56, 


165 


CO 


7 1 data 


51, 


241, 95, 


133, 51,200, 145, 


95 


PO 


720 data 


165, 


52, 233, 


0,133, 52,200, 


145 


HG 


730 data 


95, 


136, 136, 


177, 95,240, 9, 


168 


OD 


740 data 


136, 


177, 78, 


145, 51, 152,208, 


248 


ND 


750 data 


169, 


54, 133, 


1, 88, 24,165, 


254 


IH 


760 data 


229, 


52, 96, 


0, 0. 0, 0, 


67 


JG 


770 data 


49, 


57, 56, 


53, 32, 70, 46, 


83 


DL 


780 data 
iC 128 Bits 


73, 


77, 79, 
Pen 


78 
rv Shultz, Miami, Fl 




Some 


orid 



Ornament and Happy New Year In High-Res 

9 graphici :scnclr:color1 ,5:foru = 1 to50step3;circle1 , 1 60, 
75,u.60-u:next;color1,2;torf = 9toe5step5,circle1,160, 
r/9,r'2,r*3,,,,72:nextr;char1,13J8, "happy new year' ,1 

Notes: The line number must be 9 or less. Type line with no 
spaces. After entering the last character, cursor back anywhere 
in the line then return. 

Multiple Circle, Triangle and Square 
High Res Draw Routine 

5 graphici ,1 :forJ = 25to300step9:circleT .1,1 00,20, 
18,„,120:next:fori==25to300step9:circle1 ,1,20,20, 
18,„,45;next:foh = 25to300step9:circle1,i,175, 
20 90: next 

Incredible 3-D Effect High Res Draw Routine 

10 graphici :scnclr:forr = 3to100step6:circle1J 60,1 30, 
r-+-20,r+18.,„120:nextr 

1 5 graphici ,scndr;forr = 3to1 00step4;circle1 ,r + 100. 

130,r + 20,r+18,,,,120:nextr 
20 graphici ,0:scnclr:torf^3to100slep4:cirde1, 160, 

110,r + 20,r+18,,„100:nextr 
25 graphici ,0:scnclr:forr = 3to1 00step4:circle1 ,99 + r, 

1iar + 20,r+18,,.,100:nextr 
30 graphic! ,0:scnclr:forr = 3to100step4:circle1, 160, 



110,r + 20,r+18„,.90:nextr 
35 graphici ,0:scnctr:forr = 3to120step3;circle1,r+ 70, 

r + 20,r + 20,r + 18,,,,90:nexlr 
40 graphici ,0:scnclr:forr = 3to100step4:circle1, 160, 

110.r + 20,r+1B,,,.150:nextr 
45 graphici ,0:scnclr:forr = 3to1 20step3;circle1 .r + 75. 

99,r-+-20,r+18,,,,30:nextr 
50 graphici ,0:scnclr;fGrr = 3to120step3;circle1,r + 100, 

95,100,r-t-10,,,,75;nextr 
55 graphici ,0:scnclr:forr = 7to100step2;circlel, 160, 

f + 60,r + 55,r + 3,,.,72:nextr 

More Ideas 

Redefine two function keys as graphic (lextscreen), graphic \ 
(hi-res screen) — this enables screen change with one key- 
touch . 

With the 160 bytes per line, 1 hope to see many new exciting 1 
liners. 



And For the First Time. . . 

Some Amiga Bits and Pieces 

Got an Amiga? Then no doubt you learn something new nearly 
every day - we do! We at The Transactor would be most 
pleased if we could share your discoveries with all our readers. 
Same deal as "Bils'^ - we'll credit you and send a free one- 
yearns subscription. 

Some Notes About CLI 

CLI, Amiga's Command Line Interface, is your interface to 
AmigaDOS. You can access CLI by clicking its icon on your 
WorkBench disk - the CLI icon appears if the "CLI on" option is 
chosen in "Preferences". When a DOS command is entered, 
the system looks for the command in the current directory, and 
if not found, In the subdirectory C on the SYS; disk (the disk 
that was booted with). See the article in this issue for a brief 
description of the DOS commands. 

The disk-oriented nature of the DOS commands makes for a 
flexible system, since you can add and change commands at 
will. With a single drive though, it can be a problem doing 
operations with a disk other than SYS: (the one in the drive). 
For example, if you wish to get a directory of another disk, you 
can't just switch disks and type DIR because the system will ask 
for the SYS: disk again (by volume name) and then do a DIR, 
giving you the directory of your original disk. Since AmigaDOS 
is a fairly flexible and powerful system, there are many ways of 
getting around the problem; here are a few suggestions: 

I) The standard method is to refer to the new disk by name 
when giving the DOS command, for example to get a directory 
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of a disk called " Utililies - , you could just enter: 

di futilities: 

The system would then put up a requester asking you to insert 
volume "utilities" in the drive, and would give you a directory 
after you had done so. You can work with any file or directory 
on the new disk in this way, for example: 

type utilities: stuff /TexlFile 

. . .would display the file "TextFile" in the sub-directory 
stuff" on the disk "utilities". This method works fine when 
you know the volume name of the disk you're interested in 
(which you should, since you've thoughtfully written it on the 
disk label, right?}, and you only want to use the disk a few times 
and don't mind swapping disks back and forth, 

2) If you wish to switch to a new disk for awhile to perform 
several commands, and the new disk has those commands on 
it (usually in the C sub-directory), you can just change the 
assignment of C: , telling the system lo look elsewhere for 
commands. For example, if from the original disk you typed; 

assign c: utilities:c 

You would be prompted to insert volume ' utilities: " , and the 
C sub-directory on that disk would then be searched for ail 
DOS commands subsequently issued. 

Likewise, you could re-assign the current directory using the 
CD command, as in: 

cd utilities: c 

The disadvantage with this approach is that it locks you into C 
as the current directory. 

3} A more direct approach for using a new disk which also 
contains the DOS commands is to refer lo the disk explicitly 
when issuing the command, preventing DOS from requesting 
the SYS: disk. For example, if you wanted a directory of any old 
disk laying around (remember, it MUST contain the required 
DOS command - in this case DIR - in the C directory), just pop 
in the new disk and type: 

dfO:c/dfr 

That way you are referring to Drive (not a specific volume), C 
directory, then finally the command name. This is a handy 
technique for little one-lime commands such as a DIR or TYPE 
when you don't feel like typing in or don't know the new disk's 
volume name. 

4) A favourite trick used by many is COPYing all or some of the 
DOS commands into RAM and then assigning C: to RAM lo tell 



the system to look there for the commands. You could use the 
following sequence of commands, possibly in your startup- 
sequence batch file, to accomplish this: 

makedir ramie ;make c sub-directory in RAM: 
copyc: ram:c jcopy entire c sub-directory to RAM: 
assign c: ram: ;assign ram as new source of commands 

This seems to be the ultimate solution at first glance, since all of 
your commands execute out of RAM at lightning speed, and 
you're never bound to a disk when issuing a command. The 
disadvantage (there had to be one) is that you use up lots of 
RAM. and also (OK, two) it lakes a long time to copy ali of those 
commands. Nonetheless, some people have enough f^M and 
enough time that this really is the ultimate solution to fast and 
flexible DOS commands. 

5) A variation on the above RAM technique is my favorite, 
thought up by Amiga-buff Rico Mariani, Pick your most-used 
DOS commands, for example DIR, LIST COPY, ASSIGN, CD, 
and TYPE, and copy them to RAM. Then assign names to each 
of those files, and use those new names in lieu of the command 
names, (ASSIGN is just a way of setting up a new name to refer 
to a volume/directory, or file.) As a confusion-avoiding con- 
vention, make the assigned names identical to the command 
names, except for the required colon (:) at the end. The 
example below should clear up any confusion (you could use 
this in your startup-sequence). 

copy :c/dirto ram; 
copy :c/copy toram: 
copy :c/cdto ram: 
copy :c/typetG ram: 
assign dir: ram:dir 
assign copy: ram:copy 
assigned: ram:cd 
assign type: ram:type 

Now, with those assignments in place, when you wish lo do a 
DIR, just type dir: (with the colon at the end). This will get the 
dir command from RAM, executing it quickly, and you don't 
have lo have the dir command on the disk currently in the 
drive. Also, you haven't use up tons of f^M, since youVe only 
copied the commands you need. Obviously the assignments 
aren't needed at all, since you could just use " ram:dir " for the 
same effect, but the assignments make things just a bit clearer 
and easier to type. Incidentally, you can use assign whenever 
you'd like to use an alias to refer to a directory or file. Tired of 
typing "execute" all the time? Just do an: 

assign !: c/execute 

and use !: instead of the word " execute " at any time. Assigns 
are system-wide, not just for the current window, so your 
assignments will last until re-boot (and beyond, if you put them 
in the startup-sequence). 
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Letters 



1200 BPS Response: Refereace Twinkle Tones' in your 
'Letters' column of Transactor, Jan. 1986: Volume 6, Issue 04, 
Mr. Giese staled that "One of the things that 1 have learned in 
playing with my C-64 is the amount of mis-information availa- 
ble!". How true. But he then goes on and spreads more mis- 
information about the C64 in the remainder of his letter!! 

Mr. Giese implies (slates?) that yoij can't use a \ 200 bps modem 
with the C64 until you do something special. This Is just not 
true!! I have been running 1200 bps modems with my C64 for 
two years now with several different ternimal programs and 
have had no trouble. And ! didn't have to do anything special to 
run these 1200 bps modems - THEY DO WORK WITH THE 
C64!! 

Mr Giese then stales that in opening the RS-232 channel, 
setting the control register to CHR$(8) and the command 
register to CHR${0) does not work for 1 200 bps, one stop bit. 8 
bit word, no parity, and full duplex- He further states it is 
because the baud rate table in the Programmer's Reference 
Guide is wrong (that is how the CHR$(8) was determined). That 
is simply not correct, as I have been using the same baud rate 
table for a number of different baud rates and it does work!!! 1 
used an old RS-232 dot matrix printer at 300 baud with my C64 
for about a year by using the baud rate table for a number of 
different baud rate inputs. 1 have successfully printed on the 
printer using 300, 1200, and 2400 baud by consulting the baud 
rate table and setting the control register to CHR$(6), CHR$(8), 
and CHR$(IO) respectively, and selling the command register 
to CHR${0)!!! I am having a buffer problem at 1200 and 2400 
baud which is due to handshake and/or cable inconsistencies^ 
or possibly the lack of a suitable buffer in the printer. Bui the 
fact remains that you can communicate at 300, 1200, and even 
2400 baud from the RS-232 port using the baud rate table as 
published. I do it!!!! Mr. Giese's problem must be something 
else, not the baud rale table. 

Lastly, Mr. Giese states that the Programmer's Reference Man- 
ual irifers that the User baud rate is not implemented. Pages 
349 and 350 of my Programmer's Reference Guide infers no 
such thing - in fact it infers the opposite! It tells you how to 



calculate a user dehned baud rate, but the calculations seem to 
have at least one error in them. 

Mr. Evers, I hope that your magazine will clear up this addi- 
tional mis-information about the C64 and the RS-232 port that 
was published in your Jan, 1 986 Transactor magazine (the first 

issue I have ever read). 

Albert F. Harsch, North Huntington, PA 

Nouj we're reoffy confused. You say it works, Lyte Giese says 
no. Acluaiiy it was Rkk Sferiing and Joe O^ara of Microtecfuiic 
Solutions that supplied Mr. Giese with his information. How- 
ever, you must agree that three users would have trouble 
experiencing a problem that doesn't exist. Perhaps the next 
letter will help shed some more light in this dark area of 'inner 
space \ 



More Responding at 1200 BPS: In Volume 6. Issue 4 
(January 1986) of The Transactor you published a letter from 
Lyle R. Giese, Woodstock, Illinois, called "Twinkle Tones". 
Among other things RS232 baud rales as implemented on the 
C64 were discussed. I believe I may have something useful to 
add to the discussion. 

Mr. Giese rightly points out that user-definable baud rates are 
implemented by the C64 Kernel. Confusion may arise on this 
point because 1 believe that the Vic 20 Kernel does not imple- 
ment user-definable baud rates - or rather, it does, but in an 
incorrect manner. To understand what is going on requires a 
little technical detail. I hope to make it fairly clear in what 
follows. 

What happens in the C64 Kernal when an RS232 file is opened 
is this: the OPEN command is followed by a hlename field of 
one to four characters. The low nybble of the first character is 
used as an index into a baud-rate table in the kernel (one of 
two separate tables is used depending on whether system 
frequency is NTSC or PAL). The values in the baud-rate tables 
are pre-scater values for the CIA *2 Timers A and B, which are 
used to time the non-maskable interrupts of the RS232 rou- 



IfM nOMOCtOf 



n 



Mgyl966:Volun'>a6.lwueO» 



lines (Timer A is the transmit dock and Timer B is the receive 
clock). More accurately, the pre-scaier values in the baud-rate 
tables are what might be called the half-bit times. The values 
are half the number of clock cycles it takes to transmit or 
receive one bit at the selected baud rate. The OPEN routine 
uses these values to calculate the full-bit limes, and stores both 
values in page 2 locations in lo byte/hi byte form {the half-bil 
time is at $0295/96, and the full-bit time is at $0299/9A). The 
RS232 routines in the kernel make use of both values, although 
exactly how they do so is beyond the scope of this letter. 

We are now in a position to understand exaclly how user- 
dehned rales are implemented on the C64. If the low nybble of 
the first character in Ihe filename field of the OPEN command 
is zero, then the pre-scaler values are not obtained from the 
baud-rate tables at all. Instead, the third and fourth characters 
of the filename field are considered to be the pre-scaler values. 
This is exaclly what the formulas in the Programmers Refer- 
ence Guide produce - the half-bit time in lo byte/hi byte form. 

We can also begin to appreciate where some of the confusion 
surrounding the RS232 routines in the kernel has arisen. In the 
first plact^, the low nybble of the first character can have sixteen 
different values, but not all sixteen mean something. Zero gives 
the user-defined rate, and there are ten different values in the 
baud-rate tables. What happens if the low nybble has a value 
greater than ten? Simple - there is no error checking, so the 
index now points to random bytes beyond the end of the baud- 
rate fables - and those are used as Ihe pre-scaler values. Why 
doesn't the user-defined rate work on the Vic 20? As I under- 
stand it. the kernel of the Vic 20 does not specifically check for a 
zero in the low.nybble of the first character - now the index 
points to somewhere before the beginning of the baud-rate 
tables, and again a random value is used for the pre-scaler 
value. This is apparently a bug which was fixed in the C64. 

One more thing which is now apparent is why the C64 has 
trouble with some 1200 bps modems. By examing the baud- 
rate tables it is clear that the baud rate produced when 1 200 bps 
is requested is — exaclly 1200 bps. What can possibly be the 
problem, then? It turns out that it is the 1200 modems that do 
not operate at 1200 bps. Typically, 1200 bps modems actually 
transmit at 1219 bps and receive at 1182. Some modems are 
more tolerant of deviations from these rates than others, 
particularly as regards the receive rate (which is good, since the 
RS232 routines in the C64 kernel do not operate at different 
transmit/receive rates, although there is nothing in principle to 
stop them - it is mostly a question of obtaining separate timing 
values for the two clocks. A fifth and sixth character could be 
added to the OPEN filename field for a differing transmit rate, 
perhaps, along with space to store them and routines that can 
find them). The pre-scaler values given by Mr. Giese in his 
letter (CHR$(57) + CHR$(1)) actually works out to about a 123a 
bps rate. For myself I have found that CHR$(64) + CHR$(1) 
works welL The actual value found in the NTSC baud-rate 
table corresponds to CHR${70)-hCHR$(1). 



I hope this helps clear up some of the mysteries surrounding 
theC64 RS232 routines. 

Anton Treuenfels, Fridley, Minnesota 



Almost Clear: While reading one of my Transactors, Vol. 6, 
Issue 01 , 1 came across a thing for clearing a line on the screen. 
In the issue before there was a letter saying thai a guy had a 
program in which the top 3 lines must remain. The editor gave 
a long IRQ routine to do this, I have devised a way to do the 
same thing using the clear screen line technique. Here is an 
example of how it works: 

10forp = 1 to 38: print "abcdefghigfilmnopqrstuvwxyz" ; 

; next 
20 for 1-1 to 1000: next 
30fork = 3to24: poke 781, k: sys59903: next 
40 for 1=^1 to 1000: next 

The program fills the screen with letters. There is a pause then 
all the lines are cleared except the top 3. Then there is another 
pause allowing time to show the results. The line in which you 
would want to use and change to your own needs is line 30. 
This line does all the work. I hope that this will relieve the use 
of the long IRQ routine- 
Mike Digdon, Bedford. Nova Scotia 

Thanks for the code. Line 30 measures in at 30 bytes of Basic 
(without spaces), no assembler required. As far as speed is 
concerned, it goes off pretty darn quick. It^s nice lo see a belter 
cure for a problem. 

Incidently, Ihe IRQ driven routine in Voiume 5. Issue 06 was a 
continuous screen display routine for ihe top three lines. It 
measured in at 43 bytes of object. The partial screen dear 
routine was written to be called as required, with a total object 
count of 25 bytes. Although written in assembler, ihey both 
were not loo terribly long. Now, to take your routine and re- 
write it in assembler, we come up with this: 

* = 828 ;cassette buffer 

loop = ♦ 

jsr 59903 ;clear line specified in .x register 

dex 

cpx #2 ;are wedoneyet 

bne loop ;nope] 

rts 

Pronto! And only n bytes of object. Not too shoddy. Thanks for 
the idea. 
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Transactor/Ohio Porting: Just a note with my subscription 
to lellyou that 1 am enioying your magazine immensely. Since 
discovering The Transactor, I buy it before any other on the 
newsstand, 1 do not currently program on any Commodore! 

Your articles are great for programming ideas. The Jan '86 
issue. Vol 6, Issue 04 parficularily impressed. The SID super 
sound commands have been implemented with my OHIO 
SCIENTIFIC BASIC. Your article on the SID filters is very 
informative. The projectile motion article sits in my mind as 
one to try to implement on the Ohio, 

While I realize it is not always possible to publish soiirce code 
due to the length of the code, 1 would appreciate it being 
available as often as possible. Perhaps information could be 
included as to contacting you or the author for the missing 
source. As you know, this would simplify my task, and give me 
many ideas. 

Another issue that I enioyed was the one dealing with com- 
munications, particularily the serial bus information pertaining 
lo the Commodores, but applicable to many other situations. 

You may well know thai the Ohio Scientific release of Microsoft 
Basic is dated just prior to the first Pet, and thus has much in 
common- 1 currently use a mostly C4P model, with 48k of RAM. 
Beside the 64X25 video J also have a Tl 9114 video controller 
chip implemented. This gives 16 colours, Hi-Res with Apple 

compatible plotting commands, with a resolution of 255x192 

pixels. It also supports 32 sprites. I added a SID chip for sound 
and a 6522 lo drive a parallel printer. I expect to put a Gl AY3- 
8910 into the ext pin of the SID, 

Not bad for a system produced at the same time as the original 
Pet. The one big advantage 1 have is that the Basic and the 
operating system are loaded into RAM from disk whenever the 
system is booted. It thus lends itself admirably lo tinkering- 
John Horemans. Mississauga, Ontario 

You could lake the prize for the greatest amount of perser- 
uerance in recorded ftistory. While the rest of the world is 
scrambling for the newest, biggest, bestest, fastest, greatest, 
most incredible, you quietly work with your loyal Mend, modi- 
fying as desired. Anyone who reads the Transactor just for the 
ideas has to be special. Thanks for a refreshing letter. Generally 
we print source code with few exceptions. Even long listings 
aren If too unreasonable once they 're reduced with Karl's "type- 
magic". But in this case we didn't get source code from Mr 
Reesor (4408 63rd St, Comrose, Atta. T4V2J4}. Perhaps he can 
help, otherwise you may need to use ^Vnassembler" (Disk 9, 
same as Super Sound) lo make source on a friend's Commo- 
dore. 



A BIT Of A Problem: Congratulations to Transactor and J. 
Lothian for the excellant ''Disk Un-Assembler for the Commo- 
dore 64" in The Transactor (Volume 6, Issue 04). There is a BIT 
of a problem, but it is a superb piece of Basic code. 

The BIT operation is a problem as Lothian hints, and presum- 
ably space prevented further elaboration. But this BIT problem 
is the most likely source of a crash of the un-assembier. For 
example, if you use a monitor to disassemble the standard C- 
64 disk wedge, at $CE2F you will find the unusual syntax of BIT 
$00A9. Only BIT $A9 in proper zero page syntax was neces- 
sary, and presumably an assembler gremlin stuck in the lead- 
ing zero. The microprocessor executes op code $24 (BIT) as 
zero page mode, and op code $2C (also a BIT} in absolute mode. 
The first uses 2 consecutive bytes, and the latter requires 3 
consecutive bytes. As far as the executed result is concerned. 
B1T($24) $A9 and BIT($2C) $00A9 are the same. The latter 
simply takes up a bit more memory, and executes a bit slower. 

But 'The Commodore 64 Macro Assembler Development Sys- 
tem" doesn't treat these two syntaxes the same. If that assem- 
bier encounters BIT($2C) $00A9 in the source code, it 
presumes that you made a mistake and automatically drops the 
leading zero, converting it to BIT($24) $A9. The result of an un- 
assembly and re-assembly of such code is that a byte (the zero) 
is dropped, and all of the following code is offset by one byte. 
Naturally that leads to a crash. 

So> 1 encourage inclusion of Lothian's suggested line 61 in the 
program that causes the un-assembler to burp out a .BYTE, as 
if BIT didn't exist. The Commodore assembler then fails to drop 
any bytes from the source code! Although a few lines of code 
thereafter may appear incorrect in the source listing, the 
assembled result will operate correctly; and it's fine as far as the 
microprocessor is concerned, which is the main thing, after all. 



note that lines 2020-2060 are never accessed in the un- 
aasembler program, which is a shame because they would 
signal that a BIT operation was converted to a .BYTE. Also, 
lines 310-360 in the program are excess baggage, although it 
would be nicer if that weren't the case. Presumably Ij^thian 
tried to stick closely to Higginbotlom's prior program code, 
while disagreeing with his treatment of BIT. ! agree with 
Higginbottom that BIT must be converted to .BYTE in any un- 
aasembler which is related to the standard Commodore 64 
assembler. 

That might not be true with other assemblers, which may have 
entirely different quirks. I don't really know. 1 can only afford 
one commercial assembler. Because I bought the Commodore 
assembler fairly early on, that will have to suffice. 

Another problem with the un-assembler is that it won't create 
more than one file, despite what is claimed. 1 suspect that a 
couple of variables got mixed up, nevertheless there is an easy 
cure without striving for elusive perfection. Substitute the 
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following line in the program: 

1280 IF LC<1000 THEN 1350 

That fixes everything except when you try to un-assemble a 
long bit (there's that gremlin again!?) of machine code. The un- 
assembler inserts a lot of unnecessary spaces in the source 
code, creating a significant limit on the amount of source code 
which can be created on ordinary diskettes. With an ordinary 
170k 1541 diskette, only about 12k of machine code can be 
un-assembled. Deleting unnecessary spaces from the gener- 
ated code can double the limit. 24k sounds and is a lot better! 
This change is fairly easily accomplished by going through the 
program and substituting a single space wherever there are 
multiple spaces, notably in hues 1250, 1260, 1380, and 1400, It 
also seems desirable to increase the dimensions in line 1 20 to 
Ll(2000) and 12(2000}, which will then handle up to about 24k 
of machine code in a single un-assembly. [at least, after 
compilation) 

But let's not get carried away with deleting spacesf The propor- 
tional typesetting machine used to set Transactor program 
listings is a problem too. Be sure to include a space between 
.BYTE and $ in line 1480. Otherwise the Commodore assem- 
bler generates the ' RAN OFF END OF CARD " error message. 
That error message presumably means that a couple of cooties 
sitting on the Ace of Spades will never really know whether the 
card is flat or round. 

Finally, after the corrections and changes as indicated above. I 
want to confirm that the un-assembler works very welt. It can 
be easily compiled with the Abacus compiler to give a 3-4x 
increase in overall speed, with negligible expansion of the 
program code. My compiled version of the un-assembler took 
about 4 hours to un-assemble 21k of code, i.e. almost the full 
capacity of \ 170k 1541 diskette. After deleting unnecessary 
spaces from the generated code, the resulting code is approxi- 
mately 5-6x expansive. 

Incidently, I confirmed that after the BIT to .BYTE correction, 
the un-assembler correctly handles the standard C-64 disk 
wedge program, allowing relocation of the utility to any mem- 
ory area simply by varying the first line in the source code. 
Relocation of machine code, as much as editing, is a major 
advantage of the un-assembler. 

1 really enjoy Transactor, at least partly because you obviously 
do loo. John R. Menke, Ml, Vernon, IL 

There are quite a few extra benefits derived from working at 
The Transactor; one of them is the continuous stream of top 
notch letters and articles originating with John Ii4enke. It's 
always a pleasure to be on the receiving end of your thoughts 
and observations. Your comments, as usual, ore Al. Wethank 
you for making what would have been just a good program - 
great! Please keep the correspondence coming. 



Left Wing Interference: I had an experience this weekend 
that 1 thought might be of interest to other users of the 
Commodore 1 54 1 disk drive. 

My son's "Winnie The Pooh In The Hundred Acre Woods" 
program was having difficulty loading some of the screen hies, 
and would sometimes provide an error message indicating a 
problem with the disk drive. This led me to believe that the 
drive might be out of alignment. So I checked with the "Check/ 
Adjust/Alignment" function of the "1 541 Disk Drive Alignment 
Program" from C^SM Software. This function determines the 
time lo access every seventh sector of every fourth track of a 
calibration disk supplied with the program. Proper alignment is 
indicated if the program reports a 'timing number' of about 
100. The program was indicating timing numbers of 110 to 
113, and blinking of the red light on the drive indicated that 
there was difficulty in accessing sector 8 of tracks 5 and 9. 

The disk drive and TV normally sit on the top shelf of a cart 
wich I roll up to a side arm of my desk, where my Commodore 
64 is set for use. Because there is not enought room on the cart 
to disassemble and adjust the drive, I moved it to my desktop. I 
then rechecked mytimingnumber and found that it was 101 lo 
102 - well within the acceptable range - and there was 
practically no trouble accessing the disk. However, upon re- 
turning the drive to the cart, the timing number returned to 1 1 
or greater. 

A little investigation showed that if the disk drive was sitting to 
the left of my TV {or my Commodore 1 701 monitor), there was 
trouble accessing the drive. When the drive was sitting to the 
right, there was little or no trouble. 



In conclusion, sitting the disk drive to the left of a TV or 
monitor can produce symptoms which mimic alignment prob- 
lems. Readers might want to check for this type of interference 
before going to the trouble of having a drive realigned. 

Jack Ryan. El Dorado, Arkansas 



A while ago I received a 1 541 fast load cartridge called GT-4 
from Proline for review. The fast load was interesting, but what 
was more enlightening was the manual supplied. By reading 
through the authors notes, a similar experience to yours was 
noted. The author wrote that odd gremlins appeared within the 
J54I if operated too close to the left side of the Commodore 
1TOI/I702 monitor Specifically, trouble might occur reading 
from and/or writing lo track 35. Through your own experiences 
it seems thai the problems are further reaching than just track 
35. Very odd. 

Perhaps, and this is pure and applied speculation, the trouble 
lies not with an actual read/write error, but with a checksum 
error in the data read/written. The flyback is placed closer to 
the left side of the Commodore monitors. Perhaps operating the 
1541 too close to the flyback is sufficient to cause bit movement 
at the head or some other unexpected spot within the drive. 
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Although the diskette is actually in good shape, and the align- 
ment is Ok, the checksum always bombs out thereby flagging 
an error. A theory worth considering, ft 's worth mentioning here 
that I originally shot off on an altogether different tangent 
blaming speed variations due to the physical placement to the 
monitor, but my father brought me back down to earth. Thanks 
Dad 

Here is another tip gleaned through exposure to my father. 
Once again; thanks Dad. 

In many cases of supposed alignment problems with the t541. 
the root of all evil can be found in the form of a speed error. 
Speed variations can be caused by a variety of reasons, one of 
which is not using it for an extended period of time. If this 
sabbatical is spent basking in a fairly warm to hot environment 
CSchooTs Out For Summer!'), the demon may appear. Gioen 
these conditions, the drive bell will dry out thus taking on the 
shape it is currently in, an ooal. Once the drive is fired back up 
again, the speed will be all over the place due to the rigid 
malformation of the belt. The cure in fhis case is to either 
replace the belt or continue using the drive until the bell loses 
some of its rigidity, or consider just popping the belt off and 
leaving it inside the case if extended non-use is aniicipafed. 



The Gremlin Effect: It seemed to me that your current piece 
about errors on page 1 4 of Vol 6, *04 could apply lo my recent 
letterof last June !2th. 

[n it [ complained that two programs hom the July, Vol 6, *01 
Transactor just wouldn't work for me and in fact kept producing 
endless loops and fouled up generally! Namely, your own " File 
Pursuit ' and Jeff Goebel's " Bootmaker il " , 

! decided to have another crack at them tonight. Taking a brand 
new disk, loading "Verifizer" into my 64, I re-entered "File 
Pursuit " and this lime il worked absolutely perfectly! 



Quite frankly I had begun to think that my 64, which may well 
have an earlier ROM chip in it, had a few weird bugs inside! I 
know when ( foul up entering lines, though I've often found 
thai even if one spots ar} error and cursors up and re-works the 
line, it may never be right. In which case one has to redo the 
entire line, i have had this happen with much longer programs 
in other magazines and books. Finally ALL the major Commo- 
dore 64 magazines now have checksum type "goof-proof 
programs, or at least ones which make it pretty hard not lo 
catch errors right away. However a series 'RUN* ran on a 'Basic 
4" by a Canadian author, 1 still can't get to work at all and I've 
had file loading problems with an English book on ML utilities. 

Reading Transactor^ has persuaded me to lay out money on 
books on machine language and 1541 DOS, so this winter 1 
should be all set to grow some more computer-wise. 

Quite frankly I'm beginning to think that my 64 does have a 
resident gremlin inside, one that from lime to time had a 
decidedly "off night and refuses to allow a program to be 
entered correctly. If 1 hadn't experienced this with "File Pur- 
suit ' and " Bootmaker II " , I'm not sure 1 would have believed 
it could happen!!! 

Lx)oks like I'm going lo have to gel back to re-working a few 
more programs nowl At least while the gremlin is in a good 
mood! 

John Matthew, Rexdale, Ontario 

Although Verfizer will catch entry errors, it ignores Spaces. 
About the only critical Spaces possible in CBM Basic are those 
in Block Commands sent to the Disk Command Channel. 
However, we used semi-colons in the Block Commands of file 
Pursuit for just this reason. So it certainly is mystifying that two 
identical entries would not work the same. Try loading Verifizer 
and your first "save'' of File Pursuit and Just fiit return over each 
line while checking the Verifizer codes. This may lead you to the 
discrepency, which would certainly be interesting if not educa- 
tional. 



1 went back to my orginal "save" on an older disk and re- 
loaded that for comparison. Apart from a few spacing differ- 
ences between some words or commands, the two versions 
appeared to be identical when listed on screen in manageable 
groups of lines. Vet running the earlier one produced exactly 
the same hang-ups, endless loops, etc!!! Even re-entering the 
suspect lines several times had absolutely no effect! Just as 
though the program was jinxerf from the word 'Go*! 



Needless lo say i replaced the first one on the old disk with my 
new workable one, as a back-up copy and gave the working 
File Pursuit " a place on my main 'Disk Utilities' disk. I then re- 
entered ' Bootmaker II " and got that working first time too! I 
had destroyed my earlier "save", so couldn't compare the 
earlier one thai had destroyed a ml program! 



Jordan Rolltop Stand Revisited: 1 am writing concerning 
the "Jordan Rolltop Stand" in the Transactor, Volume 6, Issue 
05. First from a technical standpoint; having grown up in the 
lumber business and having built much of the furniture in my 
house, I would like to say that the article was well done and the 
assembly instructions easy to comprehend, although I did 
notice that the stand in the accompanying photo was not made 
to the specs in the article. Also^ I would caution (indeed, 1 would 
PREACH!) against buying lumber for a project like this at a 
regular lumber yard because building supply yards generally 
carry only lumber for making buildings. This is not acceptable 
for furniture type projects. Here's why; building lumber is 
usually kiln dried to approximately 16 lo 20 percent moisture 
content (m.c) but lo match the humidity inside a house, 
lumber must be drier; around 4 to 6 per m.c. 
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You can build with construction lumber fine, bul as it sits in 
your house - which is probably about 6 to 8% m.c, - the lumber 
will dry further (to "equalize" itself to its surroundings). When 
this happens, the piece will shrink and/or warp slightly, some- 
times causing real problems, especially in furniture with mov- 
ing parts. For a piece of furniture meant to last, lumber dried to 
6 lo8% mx. is a must. 

But my point in writing is not to critique the article, but rather 
to offer help lo Transactor readers. To anyone who is inclined to 
build the 'Jordan Rolltop Stand" (or any woodworking project 
for that matter) we can supply quality Appalachian hardwoods 
and New England While Pine in any form from rough sized, 
surfaced boards right through to "ready-to-assemble" pieces, 
and can supply them for less money than most furniture 
lumber suppliers. Take for instance the 'Jordan Rolltop Stand"; 
if you wanted to make this out of Cherry or Hard Maple you 
could get the rough sized boards to do it for about ten dollars 
(U.S,) (depending on the actual size of the desk it was to be 
placed on) or gel ready-to-assemble pieces, less the cloth for the 
tambour, for about twenty-five dollars (U.S.). Shipping charges 
are extra and will vary depending on distance. 

If you've got your own idea for a project, send a drawing or 
picture - or a cutting list if you have one - along with a five 
dollar (U.S.) deposit and we will draw the plans for you and 
send you a custom price quote. If for some reason you don't 
buy the lumber, the five dollars covers our time in drawing up 
the plans, (No deposit is necessary if you send a cutting list,) 
Traditional furniture woods, such as Ash, Cherry. Hard Maple, 
Poplar, Red Oak and While Pine are all readily available and 
most other North American woods can be gotten (as long as 
you're not in a hurry!) So don't decide not to build that proiect 
because of fear of saws, lack of ability, or any other excuse you 
may have for leaving your computer area in a mess; we'll meet 
you right where you want with the lumber you need. 

Matthew Strange 
RO. Box2 
Mansfield, PA 
USA 16933 

First, let me quale from a hond-wriuen feuer attached lo this 
one when we received it: 

" If this letter sounds too much like blatant advertising - feel free 
to loss it. Cue been considering starting up a business like this 
for about 2-3 years now and this looks like o good place to 
check out its feosibility and help out my computer friends as 
well. But like I said, if it's too blatant in its advertising content - 
chuck it out. 

Terrificl Anyone who asks us to "Chuck It" if we begin lo fee/ 
compromised can't be loo bad. Heres wishing you massive 
oodles of luck with your business. I like your style. 



The Horror Of Hex: 1 have hesitated wriling this letter for 
over a year now but, even ihough I realize it is like trying to 
prevent the sea from following the moon around, I am going to 
try to have my say. 

I own a Commodore 64, I am quite familiar with it and I can 
program fairly well in ML. My frustration comes from bumping 
into HEX notation all the time. It is utter nonsense. 

The use of Hex is a game some programmers play. My com- 
puter does not understand Hex. When 1 Poke a value into 
memory, both the memory and the value must be in decimal! 

[ have a memory map of low and high ROM's with each 
memory location given in Hex. What a waste, ! had to translate 
every hex address into decimal before I was able to peek the 
routine or before I could SYS to it. The entire process of figuring 
the HEX code to prepare the map was a waste of time and 
caused untold hours upon hours of wasted lime as program- 
mers everywhere decode the Hex back into useable form. 

When 1 read an article in a magazine (Such as Transactor), 1 
have little if any difficulty following and understanding the 
flow. 90% of my time is wasted in flipping back and forth 
through my Hex to decimal conversion chart! 

If you really take ar) objective viewpoint, you will also see how 
wasteful HEX is. Even Transactor publishes all 'data' state- 
ments in decimaL THE LINE NUMBERS IN A M.L. LISTING 
ARE IN DECIMAL!!! 

If HEX is really so great, why don't you use it for the line 
numbers and for the PAGE NUMBERS! Frankly, I think HEX is 
to programmers what Latin is to Doctors. It helps support a 
private clique to which the ''undesirables" cannot belong. The 
Doctors are gradually giving up Latin and I would he thrilled if 
programmers would give up HEX. 

In doing let me say I do understand HEX - 1 just see no need for 
it in any home or business computer environment. 



There - 1 said it- 



Thomas W. Gurley, Willis Point, Texas 



Time is the major factor involved in learning to appreciate the 
hexadecimal numbering system. Similar to olives, artichokes, 
smelly cheese, or whatever initially disgusting ingestibie, Hex 
requires thai you learn lo accept its obvious rude points before 
you are allowed to enjoy it. 

You may have noticed that new BAS/Cs are including HEX and 
DEC functions to allow conversion for those who wish to SYS, 
POKE, etc.. to an address specified in hex. Although you do 
have a valid point for the hybrid BASIC/Machine Language 
environment, the fact remains that hexadecimal is the only 
notation for the total Machine Language situation. I suppose if 
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/Cs where originally designed with, soy. 6 address fines (0 lo 
999999} and 3 data lines (0 to 999} then decimal would have fit 
much more naturally. Except each line of euery chip would 
need the capability to sense 10 voltage levels and that might be 
expenswe. Besides that, ^'I Adore My Commodore IOO"doesn'l 
rhyme and a ^'K'' would actually be WOO bytes - now that's 
confusing! 

You might say that binary would then be the most natural since 
there ore only 2 ooltage levels, but groups of Sand J 6 7's and 
V's take up far too much paper space. Hex merely allows you lo 
"see" four of those characters by only looking at one. f guess, 
once again, it s something you get used lo in time. I know some 
programmers that swear by Octal! 



high-level information. Try hitting a few of your local Commo- 
dore dealers for the book. There is a good chance that if they 
don ) have if. they would at least know of it and point you in the 
right direction. 



False ID: The Transactor is a real winner and 1 always look 
forward to a new issue. You have published many good articles 
on the 1541 disk drive. However, I cannot find anything that 
tells me how to change a disk ID without destroying what is on 
the disk. 1 know the ID is at byte 1 62-1 63 of track 1 8, sector 0, 
and I have no trouble changing that, but 1 understand the ID is 
printed to every sector on disk. When I display other tracks I do 
not get the ID information. I would really appreciate your help 
in this matter, 

E-C. Mcpherson, Ottawa, Ontario 

Commodore DOS is very unique in concept; during a formatting 
procedure, it magically tucks away the diskette s ID with every 
sector The magic part of this entire procedure ts that the 
average user would never know of its existence. 

The DOS uses this ID os a check-sum lo ensure that the diskette 
is Ok while you work with it. If for some reason a sector gets 
messed up. the ID offers DOS another method to detect an error. 
Along with this hidden ID are a whole slew of other equatty 
important bits of information. There is only one problem: 
Commodore wrote the DOS to make this portion of the sector 
difficult if not impossible lo access. They felt that there was no 
reason why anyone would ever want to dig this deep into their 
operations. Therefore, you are going to have problems chang- 
ing the ID. 

Considering that you did not mention why you need to change 
the diskette's ID, I will assume that either you are just nuts about 
arcane hits of Commodore tech, or you are brewing up some 
form of disk protection for a package. Whatever the story, this 
subject is a bit too involved lo cover in the letters column, and 
we suggest you don't try changing any occurrence of the !D 
unless you 're prepared to do a complete job on the entire disk. If 
that s the case, try locating the book 'Inside Commodore DOS'\ 
written by Gerald Neufeld and Richard Immers. You would be 
hard-pressed to find any other tfook that would compare to this 
one for arcane bits of information about Commodore DOS. 
These guys rank right up there with Raeto Collin West of 
"Programming The PET/CBM" fame in the presentation of 



Attack Of The Killer Clone: 1 have an INDUS-GT disk drive 
and I have problems. I cannot find any information for this 
drive except for the manual{?) and inslructions{?) that came 
with the unit. Where can I obtain more information? There has 
been nothing in any Commodore magazine about this drive, 
except advertising this drive for sale, 

I am the President of TRACE (The Richmond Area Commodore 
Enthusiasts), with 68 members. There are a dozen INDUS-GT's 
in the group, and each have problems. 

We cannot get Microprose software to load on the INDUS-GT or 
MSD-1. All calls lo Microprose have been less than satisfactory. 
Only tested on the 1541 and not guaranteed to work with 
anything else,.,. What goes? All other software written and on 
disk from other companies Load and Run fine on INDUS and 
MSD-1. Programs Saved on disk to the 1541 and Loaded into 
INDUS or MSD-1 work. 

We have tried everything but nothing works. Help!!! 

A quick bit of computer trivia of days gone by might put this 
problem in perspective. 

A long, long, very long time ago, the Abacus was born of two 
very good friends. Aba and Cus. The Abacus was conceived 
due to a difficult problem Aba and Cus encountered on a daily 
basis. In their village. Aba and Cus were considered lo be the 
finest mathematicians within a 10 miles radius. Due to this fact 
the townspeople would often rely on the guys to straighten out 
whatever financial mess they found themselves in. Initially, this 
presented no problem. Ten fingers and ten toes were more than 
sufficient for even the most vexing of problems. But soon, as can 
be expected with any successful small business, their sum and 
total of anatomical parts were insufficient for their needs. Enter; 
the Abacus. 

Aba and Cus build the first unit with absolute love and devo- 
tion. When complete, it was just perfect. Calculations that 
before would take many days lo complete were performed on 
the Abacus within a period of a few minutes. And so, the legend 
of Abacus began. They sold out of their financial consultation 
firm and began the Abacus Manufacturing Company. 

As could be expected, the larger Abacus got. the more problems 
they had with imitations coming onto the scene. The original 
clone was born, and with It come the inherent problem with 
most clones. You have to expect imperfections when you are 
dealing with a copy. 
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As lime moved otong, Abacus toas deluged with requests for 
help regarding Abacus clones. Problems such as beads falling 
off. beads seizing in place, insufficient or too many beads 
supplied and, of course, no beads, were in great quantity. In 
performing a market suruey, they found that 95% of the clones 
hod oery obvious shortcomings, with the balance presenting 
themselves as perfect replicas. But Abo and Cus had been in 
business for so much longer thai even fhe sum total of all the 
clones added up to only a small percentage of the number of 
originals they sold. They found they could not possibly spend 
the time coverting their Abacusware to work on anything but 
their own units. Third party abacusware developers felt the 
same. It soon became the responsibility of the clone manufac- 
turers to be more compatible, f-fowever. they decided not to 
since they couldn 't possibly anticipate every exception outside 
"normal use". 

The moral of this story, as / am sure Aba and Cus would agree, 
is that a clone may save you money, but you have to be 
prepared to live with the problems of using a copy. The INDUS- 
GT and MSD-1 drives are compatible with the I54J in many 
respects. In truth, each have superior features to the 1541. But 
they are not absolutely compatible. If each ROM routine was 
the same, then Commodore would have a really good chance 
of winning a juicy little lawsuit. Both manufacturers did pro- 
duce almost perfect clones, but the almost perfect is the killer 
Disk protected software packages often rely on techniques of 
bypassing the DOS's Interface Processor and working directly 
with the Floppy Disk Controller. At this level of operation, 
anything is possible. A good chance exists that quite a few 
packages use the DOS ROM routines directly, along with 
utilizing little known quirks of the 1541. 

My only advice, as far as software packages go. is to be careful 
and hope t/tat either the software or hardware manufacturers 
are resf>onsible enough to listen to legitimate complaints. Other- 
wise, be prepared to tear down those programs yourself to find 
and modify that one piece of non-portable code that stands in 
your way. 

As far as documentation goes, try to get hold of whatever 
Commodore drive users manuals you can find. This and a few 
Commodore DOS books and articles will probably help you out 
as much as you can expect. If the drives ore clones, Commo- 
dore documentation should suffice. Hope the strange advice 
helps. 



Transbloopers 

Hi-Res Terminally 111; After reading "The Error Of Our Ways: 
More Often Oops Than Bioops" on page 14 of the Jan. 86 Transac- 
tor, i moved on lo type in the HIRES Create program to use with the 
Projector program. It would not work, not because of a checksum 
error, but because of an out-of-data error! 



triple checked ail the data statements with Verifizer and even 
counted all the lines. But this time it truly was your error. 



Fortunately, I have a copy of The Transactor Vol. S, Issue 06 where 
HIRES was first published. I compared the two listings and found 
that the first 30 data items are missing from the second listing. The 
number 51233 in Nne 1050 should be changed to 51231 and the 
checksum number in line 1060 should be changed from 245,919 to 
245,727. 

I also discovered that you had forgotten to write the starting address 
to the machine language program that HIRES created. So I added 
this line to Hires Create: 

1045 print#8,chr$(0):chr${192), 

I ran the program again and then ran the Projector program and it 
worked beautifully. This is a great graphics program and I want to 
thank you for publishing it, 

Tony Damato, Jacksonville, Florida 

Strangely enough, it took quite a while before ux)rd started to filter in 
to us that HIRES was sick that issue. Sure enough, it was sick and it 
was our (my) fault. 

To transform object into data statements for publication. / usually 
use one of two programs. Thefirstis "Data Gen" written by Karl to 
transform any object into clean and neat Data statements. The 
second is the same with some heavy mods by yours tmly. The heavy 
mods produce a Data loader that Opens a program file for a write to 
disk, takes the first two data elements as the start address and the 
balance as the object. From that point you have pure object on disk 
to be Loaded via. 8. 1. The problem came when "Data Gen'' ala me 
became terminally ill It seemed to be fine, but it ate four of its own 
lines Four lines x 8 elements per line = 32 data elements. Two 
elements were the start address, the balance was required code. The 
checksum was Ok. as was most everything else. All we can do at 
this stage is offer our apologies and hope that the corrections listed 
below help to make up for our mistake partially. 

Missing lines from Gary Kiziak s Hi-RES routine re-published in 
Volume 6, Issue 04. Notice the start address is included as the first 
two elements of line 1082. Omit these if you plan to use line 1045 
above. 

1082 data 0.192, 76,194,193, 76,247,195 
1084data 76. 98,195, 76.110,194, 76, 30 
1086data194, 76,214,196, 76,228,196, 76 
1088data 11,197. 76, 67,197, 76,169,192 
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TransBASIC 
Installment *8 



Nick Sullivan 
Scarborough, Ont. 



The TransBASIC Disk 

Since the TransBASIC modules published so far are consuming so 
much space on each Transactor Disk, we have decided to produce 
The TransBASIC Disk. Starling with this issue, only the modules 
published in each issue will be on The Transactor Disk. The others, 
plus several that have not yet been published, will reside on The 
TransBASIC Disk, which contains almost 500 blocks of source 
code. Included is a manual showing each command from every 
module with short examples More complete documentation for a 
command con always be found in a Transactor back issue, should 
you need it. Otherwise you simply run ' • " and start adding 
commands 

After selecting commands from the library they need to be assem- 
bled with PAL Until nowf SYMASS 3.0 is a machine language 
assembler that is compatible with PAL format source code, and it 
will be on Tfie TransBASIC Disk! (It will also be published in the 
next Transactor, with assembler-design theory and complete in- 
tructions) SYMASS 3.0 Is not compatible with all of PAL's exotic 
features, and although it will assemble most any program, it is not 
a "development" package. SYMASS does not print listings and 
sends object code to memory only. So if you're writing code. PAL's 
error checking and elaborate pseudo-ops ore still the ideal ap- 
proach, but for assembling TransBASIC modules, SYMASS 3.0 is 
perfect! 

The TransBASIC Disk with SYMASS 3.0 is just $9.95. See News 
BRK this issue for more, or use our postage paid order card at 
center page. 



TransBASIC Parts I to 7 Summary: 

Part 1 : The concept of TransBASIC - a custom command utility 
that allows one to choose from a library only those commands that 
are necessary for a particular task. 

Part 2: The structure of a TransBASIC module - each TransBASIC 
module follows o formal designed to make them simple to create 
and "mergeable" with other modules. 

Part 3; ROM routines used by TransBASIC - many modules make 
use of ROM routines hurried inside the Commodore 64. Part 3 
explains how to use these routines when creating new modules. 

Part 4: Using Numeric Expressions - details on how to make use 
of the evaluate expression ROM routine. 

Part 5: Assembler Compatibility - TransBASIC modules are writ- 
ten in PAL Assembler format. Techniques for porting them to 
another assembler were discussed here. 



Part 6: The USE Command - The command ADD' merges 
TransBASIC modules into text space. However, as more modules 
are ADDed, merging gels slow. The USE command was written to 
speed things up. USE also counts the number of modules USEd and 
updates line 95 automatically. 

Part 7: The TransBASIC kernel uses all of the 64^s system vectors. 
Should two or more modules attempt to alter any vector, a 
potential crash situation exists. Part 7 deals with avoiding this 
situation. 

TransBASIC Part 8 

Our first module this issue (Program 1) is called OLD. It was wriHen 
by Joel M, Rubin of San Francisco, California, and consists of one 
statement, also called OLD. Like the UNNEW and OLD commands 
of other utilities, OLD restores a BASIC program thai you have lost 
through inadvertent use of the NEW command, Joel will have 
more modules appearing in future issues. 

The second module is INPN & INPA (Program 2). it provides 
controlled input of either numeric (INPN) or alphanumeric (INPA) 
characters- This one is by Wayne Happ of North Babylon, New 
York (who also wrote the SELECT module, discussed below). 
Wayne notes that it would be easy to modify the section of code 
that screens the input characters, if the particular selections made 
in this published version do not exactly meet your programming 
requirements. This module also makes use of part of the INLINE 
module (see below), so if you're typing them in. note that some 
code is duplicated, and there's no need to enter it twice if you're 
willing do a lilde juggling. 

SELECT (Program 3) is a short but interesting module that pro- 
vides a structure not unlike the SWITCH structure of C or the CASE 
structure of Pascal. SELECT is not a closed, formal structure — this 
being BASIC, after all — but it should be helpful in a lot of 
instances where an unwieldy series of IF-THEN statements is the 
only alternative. The SELECT structure begins with SELECT and 
ends with ENDSELECT, with an arbitrary number of WHEN 
statements and an optional OTHERWISE statement in-between. 
However, there is nothing to prevent you using other kinds of 
statements inside the structure, if you so desire, or even — since 
SELECT does not use the stack — distributing the component 
statements in various subroutines or FOR-NEXT loops. Formal 
structures don't allow these kinds of liberties, and so can keep you 
out of trouble; on the other hand, you might be able to make good 
use of the freedom SELECT offers you, 

MC GRAPHICS (Program 4) is another big module from Darren 
Spruyt of Gravenhursl, Ontario, whose work has appeared in (his 
column in each of the past two issues. This module gives a battery 
of twelve commands that make multicolour hi-res graphics easy to 
use. rather than a programming headache- In multicolour hi-res. 
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you hdve the choice of four colours in each low-res pixel [A by 8 
multicolour pixels), rather than the two colours allowed in regular 
hi-res (though one of the four is the background colour, common 
to the whole screen). The drawback of multicolour is a los^ of 
resolution - you get a 1 60 by 200 pixel screen instead of the 320 by 
200 pixels of regular hi-res. However, this is still enough to allow 
good detail . 

One problem with programs thai run in graphics modes other than 
the default text mode is that a syntax or other error can leave you 
with a mess on your screen and no obvious way to get out of it. To 
get around this, the MC GRAPHICS module reroutes the error 
vector when the hi-res screen is turned on, and returns the screen 
to normal before handling the error. The error trap is deactivated 
when the hi-res is switched ofl. This will normally introduce no 
additional problems, but if you want to intercept the error vector 
for your own purposes, be sure to do so only when the multicolour 
Is off. By the way, if you happen to be writing hi-res modules 
yourself, whether multicolour or not, it would be a good idea to use 
the same error-trapping procedure, or even the same routines, as 

those employed by MC GRAPHICS. 

Finally this month we have INLIME {Program 5), a variant of 
BASIC'S INPUT command that does away with the question-mark 
prompt and also allows all punctuation mark characters to be 
input. This one works only from the keyboard - maybe in a luture 
issue we'll run a sequel that does the same thing for reading from 
file.s. 

New Commands 

INLINE (Type: Statement Cat": 030) 

Line Range- 3454-3528 

Module: INLINE 

Example; INLINE "SAY SOf^ETHlNG; ";A$ 

Identical in syntax and operation to the regular INPUT statement 

except that: the question mark prompt is not given; only one 

variable may be input and that must be a string variable; commas, 

colons and semicolons are accepted as input. 

OLD (Type: Statement Cat'': 142) 

Line Range: 10190-10216 

Module: OLD 

Example; OLD 

This command will restore a BASIC program in memory after a 

NEW has accidentally been given or the computer has been reset 

(in the latter case, you will have to first reset TransBASlC with SYS 

49155 or POKE 49152,96, then re-enable it with SYS 49152). The 

command will not function predictably if any syntax errors occur 

after the NEW. 

INPN (Type; Statement Cat": 143] 

Line Range: 10224-10386 

Module: INPN & INPA 

Example: INPN " YOUR PHONE NUMBER: ";PN$ 

This is a controlled input command thai accepts only numeric 

characters and some punctuation (space, period, plus, minus). The 

cursor Is a non-flashing underline character. The only allowed 

control characters are DEL and RETURN. There is no automatic 

question mark prompt; and the string prompt (as in the example) is 

optional. 



INPA (Type: Statement Cat*; 144) 
Line Range: 10218-10386 
Module: INPN & INPA 
Example: INPA "YOUR NAME: ^PNS 

This is a controlled input command that accepts only numeric 
characters, upper and lower case alphabetics and some punctua- 
lion (space, period, plus, minus, and the characters in the ASCII 
range 5S through 64) The colon (ASCII 58) and semicolon {ASCII 
59) are accepted as input like other characters, not as terminators. 
The cursor is a non-flashing underline character. The only al- 
lowed control characters are DEL and RETURN. There is no 
automatic question mark prompt; and the string prompt (as in the 
example) is optional. The variable must be of string type, 

SELECT (Type Statement Cat "; 145) 

Line Range: 10388-10410 

Module: SELECT 

Example; SELECT 

Example: SELECT A[3)-1 

This statement begins the SELECT structure. If no parameter is 

given (first example), the structure operates in logical mode; when 

a parameter is pre.sent (second example) it operates in comparison 

mode. For further details see the entry for the WHEN statement 

(146). 

WHEN (Type: Statement Cat *; 1 46) 
Line Range: 10412-10446 
Module; SELECT 

Example: WHEN A = B PRINT " EQUALITY " 
Example: WHEN A PRINT XASE " ;A 

This statement is part of the SELECT structure (see SELECT, '145). 
The tirsl example illustrates the syntax when the structure is in 
logical mode; the WHEN is followed by a logical expression which, 
as in the IF statement, controls whether the remainder of the 
program line is executed. The second example illustrates the 
syntax of the comparison mode: the WHEN is followed by an 
expression whose result is compared with the value of the expres- 
sion accompanying the SELECT statement, and the remainder of 
the hne is executed it the two values are equal. It the WHEM test 
expression is successful (and thus the remainder oE the program 
line is executed), the SELECT structure is disabled; further WHEN 
statements and OTHERWISE ("147] ,statements will have no effect. 

OTHERWISE (Type; Statement Cat': 147) 

Line Range; 10448-10458 

Module: SELECT 

Example; OTHERWISE PRINT "NO LUCK" 

The OTHERWISE statement is an optional component of the 

SELECTstructure(sec SELECT, *145)- Statements following on the 

same line will be ej^ecuted only it no WHEN .statement ("1 46) has 

been successful. The OTHERWISE statement disables the SELECT 

structure: further WHEN statements and OTHERWISE statements 

will have no effect, 

ENDSELECT (Type: Statement Cat*: 148) 

Line Range: 10438-10446 

Module: SELECT 

Example; ENDSELECT 

This statement terminates the SELECT structure (see SELECT, 

*145). 
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HCLR (Type: Sl£itcmem Cat ■"; 14^) 

Line Range: 11106-1113^ 

Module: MC GRAPHICS 

Example: HCLR 

This statement clears Ihe high-resolulion screen at address 

$EO0O-$FFrF by filling that area of memory with zero bytes. 

MCON (Type: Statement Cat ■-; 150) 

Lme Range 11068 11104 

Module: MC GRAPHICS 

Example: MCON 

This statement enables the multicolour hi-res screen at address 

JEOOO, with video matrix at $0800. Current values of background 

colour, text colour and character set location are saved, to be 

restored later with the HOFF ("151) command. 

HOFF (Type: Statement Cat": 151) 
Line Range: 11154-11198 
Module: MC GRAPHICS 
Example: HOFF 

This statemecit disables hi-res and multicolour modes, sets the 
video matrix (low-res screen] to its usual location of $0400, and 
restores previous low-res values of background colour, text colour 
and character set location, as saved with the MCON (*150) com- 
mand, 

MSET (Type: Statement Cat '': 152) 

Line Range: 10746-10762 

Module MC GRAPHICS 

Example; MSET1 00,30.2 

This statement sets the specified screen location (in the example 

x=100,y = 30) to the specified colour. The colour in the example is 

number 2, asset in the MCOLOR command {^159). 

IHTEXT(Type: Statement Cat ": 353) 
Line Range: 11784-11996 
Module: MC GRAPHICS 
Example: MTEXT 10,40.1,2,3, "HELLO" 

This command writes the given string, in a specified colour, to a 
location on the multicolour high-res screen. The text may be 
magnified by an integer factor in both the X and Y dimensions (no 
magnihcdtion results in a character size of 8 by 8 multicolour 
pixels). The order of parameters is: x location, y location, x 
magnification, y magnification, colour and Ihe string to be printed. 
The character shapes are drawn Ironi the Upper Case/Graphics 
ROM character set. The example prints the text "HELLO" at 
coordinates x= 10, y^40, with no magnification in the X dimen- 
sion, and double magnification in the Y dimension, using colour 3 
asset by Ihe MCOLOR command ("159). 

MCIRCLE {Type. Statement Cat ': 1 54) 

Line Range: 11362-11782 

Module: MC GRAPHICS 

Example: MCIRCLE 80,100,50,1.1,2 

This command draws a circle with a specified radius to a location 

on the multicolour high-res screen, using a specified colour. TbeX 

and Y dimensions of the circle may be adjusted (creating an oval) 

with separate multipliers, whose value should lie between and 1 . 

The order of parameters is: x location, y location, radius, x 



magnification, y magnification and colour. The example draws a 
circle of radius 50 at coordinates x = 80, y = 100, with no magnifica- 
tion in either the x or y dimensions, using colour 2 as set by the 
MCOLOR command ('159). 

MDISC (Type: Statement Cat": 155) 

Line Range: 11356-11782 

Module: MC GRAPHICS 

Example- MDISC 80J 00,60,1 ,.8,1 

This command is identical to MCIRCLE ("154) except that the 

circle is filled instead of being drawn as an outline. 

MRECT(Type: Statement Cat '. 156} 

LineRange:11270-ll318 

Module: MC GRAPHICS 

Example: MRECT 30,40,50,15,1 

This statement draws a rectangle specified by the coordinates of 

two diagonally opposite corners, in a specified colour. It does not 

matter which corners are specified. The example draws a rectangle 

whose lower left corner is at x = 30, y = 40, and whose upper right 

corner is at x = 50, y=15» using colour 1 as set by the MCOLOR 

command (* 159). 

MBOX (Type: Statement Cat*: 157) 

Line Range: 11320-11354 

Module: MC GRAPHICS 

Example: MBOX XI ,Y1 ,X2,Y2,C 

This command is identical to MRECT C'lSfi) except that the 

rectangle is filled instead of being drawn as an outline. 



MDRAW (Type; Statement Gal ': 1 5^] 
Line Range: 10472-10626 
Module: MC GRAPHICS 
Example: MDRAW 1 3.1 1 1 ,77,99,0 

This command draws a line between two points in a specified 
colour. The example draws a line from x=13» y=in to x = 77, 
y = 99, in the background colour asset by the MCOLOR command 
159). 



MCOLOR (Type: Slalemenl Cat':! 59) 
Line Range: 10954-11066 
Module: MC GRAPHICS 
Example: MCOLOR 10,10,25,20,0,2,3,6 

This command sets the four colours available m the multicolour 
palette for a specified screen region as specified by the low-res co- 
ordinates {x=0 to 39, y = to 24) of its upper left and lower right 
corners. The example sets colour (the background colour) to 
black (0), colour 1 to red (2), colour 2 to cyan (3), and colour 3 to 
blue (6), for the region whose upper left corner is at x= 10» y= 10, 
and whose lower right corner is at x = 25, y = 20. Colour 0, the 
background colour, is different from the others in that it is set for 
the whole screen at once, and not only for the specified region. 

MCHK((Type: Function Cat *: 160) 

Line Range: 11136-11152 

Module: MC GRAPHICS 

Example: PRINT MCHK(100,yc) 

This function returns the colour (as set by the MCOLOR command, 

^ 159) of the specified pomi (in the example, x= lOU, y = yc). 
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Modules So Far 

TransBASIC Modules that have appeared so far (InstaimeRts 1 to 7) 



TransBASIC*! 



TB/ KERNEL 



Slatemcnls. 2 Functions: Keyword Chafaciers: 8 



OOOS/IF 

001 S/ELSE 

002 S/ EXIT 

SCREEN THINGS 



Modified IF io work with TransBASIC 
PartollF-ELSEronslruct 
Disable currtnl TransBASIC dialect 



Slalements: 5 Funclions: Keyword Characters: 22 



013S/GROUND 

OHS/FRAME 

0I5S/TEXT 

016S/CKAM 

017S/CLS 



Set background colour 

Sei border colour 

Set lexl colour 

Fill colour memory with value 

Cledr screen, or screen line range 



TransBASIC *2 



DOKE & DEEK 



Slalemenls: I Functions: 1 Keyword Characlers: 9 



007 S/DOKE 

008 F/DFF-K( 

BIT TWIDDLERS 



Poke a 16-bit value 
Peeka 16-bit value 



Statements: ^ Functions;!) Keyword Characters: 12 



009 5/SET 
OlOS/CLFAR 
nil S/FIJP 

CHECK & AWAIT 



Sei specified bit at address 
Clear specified bit at address 
Flip specified bit at address 



Statements: Functions: 2 Keyword Characters: 12 

Check keyboard for valid character 
Wdil for valid character from keyboard 



018F/CHECK( 
019F/AWAIT( 



KEYWORDS 

Stalements. 1 Functions: Keyword Characters: 8 

059 S/KEYWORDS Print currently active TransBASIC keywords 



TransBASIC ^3 

CLIRSOR POSITION 

Statements; 1 Functions: 1 Key word Characters: 10 



004S/CURSOR 
005 F/CLOC 



Move cursor to specified row and column 
Return cursor location 



SET SPRITES 

Stalements: 6 Functions; Keyword Characters: 27 



031 S/COLSPR 

032 S/SSPR 

033 S/CSPR 

034 S/XSPR 

035 S/YSPR 

036 S/XYSPR 

WITHIN 



Set colour of sprite 

Turn on a sprite 

Turn off a sprite 

Move sprite to specified x-position 

Move sprite to specified y-jK)sition 

Move sprite to specified xy-position 



Statemefits: D Functions: 1 Keyword Characters: 7 

040 F/WITH[N{ Return true if value lies within specified range 

READ SPRITES 

Statements. Functions 2 Keyword Characters: 10 



041 F/XLOC{ 

042 F/YLOC( 



Return x-posifion of specified sprite 
Return y-position of specified sprite 



TransBASIC *4 



STRIP & CLEAN 



Statements: Functions: 2 Keyword Characters 14 

045 F/STRIP$( Remove non-alphanunierics from string 

046 F/CLEAN$( Remove non-blank non-alphanumerics from 

string 

SCROLLS 

3tateiTier:is: 4 Functions: Keyword Characters: 24 



067 S/USCROL 
068S/DSCROL 
069S/L5CROL 
07aS/RSCROL 



Scroll screen area up one row 
Scroll screen area down one row 
Scroll screen area lefl one row 
Scroll screen area right one row 



TransBASIC *5 



LABELS 



Statements: 5 Functions: Keyword Characters 24 



073 S/L 

074 S/LGOTO 
075S/LGOSUB 
076 S/SGOTO 
077S/SGOSUB 



Label a line 

GOTO a labelled line 

GOSUB to a labelled line 

GOTO a line whose label matches a string 

GOSUB to a lifie whose label matches a string 
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TOKEN & VAR 

STalemenls: Functions: 2 Keyword Characlers: 1 1 

078 F/TOKENS( Return tokenized version of argument string 

079 F/VAR( Return address ol data of named variable 

IIVSTRING 

Statements: Functions: 1 Keyword Characters; 6 

080 F/INSTR{ Search siring 1 for siring 1. Boolean options 

PLACE 

Statements: Functions: 1 Keyword Characters: 6 

OSl F/PiJ^CE( Searcli string 1 for string 2 from specified posi 

tion 

ARCFUNCTIONS 

Statements: Functions; 2 Keyword Characters: 8 



TransBASIC *6 



082 F/ASN{ 

083 F/ACS( 



Return arcsine of argument 
Return arccosine of ai^ument 



PRINT AT 

Statements: 1 Functions: Keyword Characters: 6 
084 S/PRINT® Print at specified cursor positiofi 

SOUND THINGS 

Statements; 28 Functions; 4 Keyword Characters; 126 



085S/CLES1D 
086 S/FREQ 
087S/PUW[D 
088S/FIFREQ 
089S/ADPUL 
O^S/ADSAW 
091 S/ADTRI 
092S/NOWAV 

093 5/NOI 

094 S/PUL 

095 S/SAW 

096 S/TRI 

097 S/TEST 

098 S/RfNG 

099 S/5YNC 

100 5/GATE 
lOlS/ATT 
102S/DEC 
103S/SUS 
104S/REL 
105S/RESON 
106 S/ VOL 
107S/FILT 
J08S/TRDOFF 
109S/TRDON 
llOS/HP 
lllS/BP 
n2S/LP 
113P0TX 
n4P0TY 

115 0SC3 
1I6ENV3 



Cleat SID chip 

Set SiD voice frequency 

Set pulse width 

Set filter cutoff frequency 

Add pulse to waveform 

Add sawtooth to waveform 

Add triangle to waveform 

Clear waveform register 

Set noise waveform 

Set pulse waveform 

Set sawtooth waveform 

Set triangle waveform 

Set/clear waveform register test bit 

Sel/ciear ring modulation 

Set/clear synchronization 

Set/ clear gate bit 

Set attack 

Set decay 

Sel sustain 

Set release 

Set filter resonance 

Set volume 

Set/clear filter 

Turn off oscillator 3 

Turn on oscillator 3 

Turn high-pass filter on/off 

Turn band-pass filter on/off 

Turn low-pass filter on/ off 

Return value ol port 1 game paddle 

Return value of port 2 game paddle 

Return value of oscillator 3 output 

Return value of oscillator 3 envelope generator 



USE 



Statements; 1 Functions: Keyword Characters; 3 
il7S/USE Fast-merge programs, TransBASIC modules 

MOVE & FILL 

Statements: 2 Functions: Keyword Characters: 8 

118S/M0VE 
119S/FILL 



Move area of memory 

Fill area ol memory with specified value 



DOS SUPPORT 



Statements: 5 Functions: 2 Keyword Characters: 24 

List directory to current output device 



123S/CAT 

124 5/ DOS 

125S/DEV 

126S/DLOAD 

127S/DSAVE 

328F/DSS 

129F/DS 



Send a command to disk 
Set default disk device number 
Load program Irom default drive 
Save program to default drive 
Return disk error string 
Return disk error number 



LINE CALC 

Statements' 2 Functions: 1 Keyword Characters; 13 



130S/JUMP 
131S/CALL 
133F/L1NE( 

BEEP 



Goto program line at specified address 
Call subroutine at specified address 
Determine address of specified line 



Statements: 1 Functions; Keyword Charat:ter&, 4 
1 33 S/BEEP Produce a beep tone 



TransBASIC *7 



RANDOM 



Statements: Functions: 1 Key word Characters; 7 
027 F/RANDOM( Return random integer within range 

PHRASE SPUTTERS 

Statements: Functions 2 Keyword Characters: 1 1 



028F/F]RST$( 
029 F/BF$ 



Return first word of string 
Return all but first word of string 



PRG MANAGEMENT 

Statements: 3 Functions: Keyword Characters; 10 



136S/AUTO 
137S/DEL 
138 S/ REN 



Generate Ur:ie numbers automatically 
Delete program line(s) 
Renumber BASIC program 



COMPUTED CMDS 

Statements: 3 Functions; Keyword Characters: 16 

139 S/RESTORE Restore DATA pointer to computed line number 
140S/GOSUB Call subroutine at computed line number 

141 S/GOTO Transfer execution to computed tine number 
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Program 1: OLD 


FP 


3512 


jsr Sb48d 










. 


CC 
DD 


3514 
3516 


jsr $b7e2 
sr $a9da 






! IJ 


rem old (j. rubin, sep1/85) 




FH 


1 . 




H 


1 3518 


da $4b 






A 


2 rem 1 statement, functions 




NN 3520 


dy $40 






HH 


3 




ML 3522 


sta $7a 






DO 


4 rem keyword characters, 3 




CC 


3524 


sty $7b 






JH 


5. 




CL 


3526 


rts 






NJ 


6 rem keyword routine line ser # 


OD 3528 : 








JP 


7rems/old ol 10190 142 


GK 


10218 npa 


Ida #1" ; 


last valid char-t-1 




MH 


8. 




AC 


10220 


.byte$2c ; 


'bit' 




CO 
OH 






EG 


10222 ■ 








: 10: 




OJ 


1 ^i'wwf« ^ 

10224 npn 


da #^:^ ; 


last valid char -f 1 




OH 


, 141 asc "olD" 




AF 


10226 


sta 12 






FG 


i 1441 wordol-l 




CP 


10228 


jsr $79 ; 


lest arg present 




CD 


' 10190OI Idy #1 


maketrrsllinehf 


BM 


10230 


bne npl ; 


. yes 


1 
] 


DO 


10192 tya ; 


, link non-0 


FP 


10232 


jmp $af08 ; 


/syntax' 




DC 


10194 sla (43).y 




AB 


10234 npl 


cmp#$22 ; 


,tesl for quote 




JB 


10196 jsr $a533 


.relink program 


KN 


10236 


bne np2 ; 


; no 




JK 


10198 cic 


,[$22) points 1 


KJ 


10238 


jsr $aebd 


;set up prompt sir 




JO 10200 da $22 


. byte past end 


NO 


10240 


Ida #";'^ 


;check semicolon 




OC j 10202 ado #2 


, of program, add 


KK 


10242 


jsr Saeff 






AM 


10204 sta 45 ; 


, 2. and write to 


EB 


10244 


jsr $ab21 


.print prompt str 




DP 


10206 da $23 ; 


; start oJ vars 


EP 


10246 np2 


jsr $b3a6 


; check prg mode 




NL 


10208 adc #0 




GO 


10248 


Ida #■■.'■ 


,pu comma before 




IC 1 


10210 sta 46 




LE 


10250 


sta $01 ft 


; input buffer 




OF '' 


10212 jsr $a660 ; 


cir 


IP 


10252 


Idx #0 


;init char counter 




NG 


10214 jmp $8386 


ready 


KM 


10254 


six t3 






OF 


10216; 




BM 
BM 


10256 
10258 np3 


stx $11 
Ida #$a4 


set input flag 
print under tne 












CI 


10260 


isr $ffd2 


(cursor) 


Program 2: INPA ar 


Id INPN 


HE 


10262 np4 


jsr $ffe4 


get character 








B5) [ 


OJ 

PA 


10264 
10266 


cmp#$Od 

beq npS 


test cr 
yes 




OP 


rem inpa & inpn (w.happ, 1 9i 




FH 


1 : 




FK 


10268 


cmp#$14 


test de ete 




DH 


2 rem 2 statements, function* 


3 


AB 


10270 


beq np7 


yes 




HH 


3: 




HE 


10272 


cmp#$20 


test space 




10 


4 rem keyword characters; 8 




BB 


10274 


beq np6 


yes 




JH 


5: 




GA 


10276 


cmp # ■ / 


test penod 




NJ 


6 rem keyword routine line ser # 


FB 


10278 


beq np6 


yes 




BG 


7rems/inpa npa 10218 143 


CM 


10280 


Jr N 41 

cmpw + 


lest plus 




DL 


8 rem s/inpn npn 10224 144 


JB 


10282 


beq np6 


yes 




NH 


9: 




JE 


10284 


cmp#"-" 


test minus 




PO 




=^======^==== 


NB 


10286 


beq np6 


yes 




PH 


11 . 




JG 


10288 


dx t2 


,test inpa 




MM 


142 asc "inpAinpN" 




lA 


10290 


cpx #"[- 






BB 


1442 word npa-1,npn-1 




LB 


10292 


bne np5 


;no 




BO 


3478 inl2 jsr $ad8{ 




EN 


10294 


cmp # " A " 


;1esl upper case 




FH 


3480 sla $49 




GP 


10296 


bcc np5 


; no 




PO 


3482 sty $4a 




GC 


10298 


cmp#$db 






JF 


3484 Ida $7a 




NO 


10300 


bcc np6 


;yes 




OL 


3486 Idy $7b 




HA 


10302np5 


cmpj^^O" 


;testif in range 




J 


3488 sta $4b 




LP 


10304 


bcc np4 


;no 




NP 


3490 sty $4c 




HK 


10306 


cmp 12 






N 


3492 Idx $43 




PD 


10308 


bcs np4 


, no 




GJ 


3494 Idy $44 




AF 


10310 np6 


dx $d3 


;gel cursor column 




PP 


3496 six $7a 




OH 


10312 


cpx #$4f 


;lest < 79 




!A \ 3498 sty $7b 




FE 


10314 


bcs np4 


; no 




MK ' 


3500 jsr $73 




HF 


10316 


pha 


;print cursor left 




JJ 


3502 Ida #0 




MN 


10318 


Ida #$9d 






PH 


3504 sta $07 




JO 


10320 


js* $ffd2 






El 


3506 sta $08 




KN 


10322 


pi a 






BH 


3508 Ida $7a 




AC 


10324 


]sr $ffd2 


;prinl input char 




GN 


3510 dy $7b 




BL 


10326 


Idx t3 


,ge buffer index 



TheTramoctor 
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Mov 19U: VoluTTM 6, luue 06 



HD 


T0328 




sla 


$0200, x 


;charIo buffer 


NF 


10330 




inc 


13 


;bump index 


DE 


10332 




bne 


np3 


;get another char 


DJ 


10334 np7 


Idx 


13 


;lest index > 


JF 


10336 




beq 


np4 


; no 


II 


10338 




jsr 


$ffd2 


jdeete cursor 


GN 


10340 




jsr 


$ffd2 


;de ele character 


JA 


10342 




dec 


t3 


;back up index 


JK 


10344 




bpl 


np3 


jhandlenext input 


AG 


10346 r 


ipB 


Ida 


#$14 


ideiele cursor 


FA 


10348 




jsr 


$ffd2 




JM 


10350 




Idx 


13 


;get buffer index 


■ KJ 


10352 




jsr 


$aaca 


iprinlcr 


FD 


10354 




stx 


$43 


;$1ff lo input ptr 


CK 


10356 




sty 


$44 




MP 


10358 




Idx 


t3 


;test input null 


LG 


10360 




bne 


np9 


;no 


AG 


10362 




jmp 


$abf3 


;no assignment 


PI 


1 0364 r 


ip9 


jsr 


$b08b 


;find variab e 


KP 


10366 




pha 






JH 


10368 




jsr 


$79 


;test end of line 


CG 


10370 




beq np10 


;yes 


Bl 


10372 




jmp 


$af08 


; 'syntax' 


01 


10374 npIO 


pi a 






IL 


10376 




dx 


12 


;Iest alpha 


AG 


10378 




cpx 


ft'l" 




MB 


10380 




bne npll 


; no 


FJ 


10382 




jmp 


inl2 


;enter inline rtn 


E 


10384 np11 


jmp 


$ac1S 


;enter rom input 


lA 


1 0386 ; 











PH 


10412 whn 


beq 


othi 


;error - no arg 


Dl 


10414 


jsr 


$ad8a 


;eval expression 


EC 


10416 


Ida 


sflgl 


;testse on 


HK 


10418 


beq 


wnl 


; no 


OK 


10420 


Ida 


s(g2 


;lest tor test expr 


Jl 


10422 


bne 


wn2 


; yes 


CD 


10424 


Ida 


$61 


;test 'when' expr 


PL 


10426 


bne 


wn3 


; true 


OJ 


10428 wnl 


imp 


$a93b 


;enter rem routine 


OG 


10430 wn2 


da 


#<se tst 


;comparetesl 


OC 


10432 


dy 


#>se tst 


; expression 


IAS 


10434 


jsr 


$bc5b 


; with tac 1 


JL 


10436 


bne 


wnl 


;noteQua, ignore 


FK 


10438 wn3 


da 


#0 


;flag - seect off 


OH 


10440 


sla 


stgi 




HK 


10442 


jsr 


$79 


;executestatemer 


IN 


10444 


jmp 


$a940 




EE 


10446; 








PJ 


10448 0th 


bed 


othi 


;error - no arg 


GE 


10450 


Ida 


sflgl 


;tes1 se on 


KK 


10452 


bne wn3 


;yes 


LM 


10454 


beq 


wnl 


;no 


KN 


10456 othi 


jmp 


$af08 


; syntax 


AF 


10458: 








PE 


10460 stigl 


bytt 


30 




EF 


10462; 








FF 


10464 sflg2 


.byteO 




IF 


10466; 








LA 


10468setst 


* = * 


+ 5 




MF 


10470; 









JC 
FH 
JH 
HH 
CF 
JH 
NJ 
8P 
Ml 
EP 
FF 
PH 
KD 
Bl 
BP 
PD 
HB 
NP 
JL 
FE 
FC 
GO 
OL 
HD 
EA 
JC 
DP 
MF 
EJ 
AC 



Program 3: SELECT 

rem select (wayne happ, 1985) 

1 : 

2 rem 4 statements, functions 
3: 

4 rem keyword characters 28 
5. 

6 rem keyword 

7 rem s/select 

8 rem s/when 

9 rem s/otherwise 

10 rem s/end select 

11 : 

12 rem = = = = = = = = = = = = = - = 

13: 

143 asc " selecTwheN " 

144 asc " otherwisEendselecT 

1143 .wofdsel-1,whn-1 

1144 .wofdoth-1,wn3-1 



routine 

sel 

whn 

oth 

wn3 



Ifne 

10388 

10412 

10448 

10438 



ser# 

145 

146 

147 

148 



10388 sel 

10390 

10392 sen 

10394 

10396 

10398 

10400 

10402 

10404 sel2 

10406 

10408 

10410: 



bne self 
Ida #0 
Eta sflg2 
beq sel2 
jsr $ad8a 
Idx #<seltst 
Idy #>seltst 
jsr $bbd4 
Ida #1 
sta sfig 1 
rts 



;setsflg2if 

; argument present 

;skip if no arg 
;eval expr 
.store result 
, to sel tst 

;flag - select on 



Program 4: MC GRAPHICS 

Darren s done it again! This next TB module comes to 85 Blocks of 
source code on Transactor Disk "11! Us been printed here for 
reference, but we didn^t include the Verifizer codes - we couldn't 
imagine anyone actually typing it in. except Darren of course. M.Ed. 



Ofemmcgraphicsia. y^ruyi, '965} . 

1 

2 t&m 1 1 siaiemsrts. 1 runcExin 

3' 

4 ;em ke/wof d chaiaclers' 57 

5: 

6 rem ke/woid routine lire ser fl 

7tems/mcon ho n06S 1^9 

arems/msei mcsef 10746 150 

Srem&'toff mcrsir IH54 151 

10 rem s/mdraw mcdra 10472 152 

n rems/mrecc mcrec 1T270 153 

12 rem s/jncifde mccir 11362 154 

13rems;jnfe^f mclfl U784 155 

14renis/hclr hd III06 156 

15 real s/mcoloi mccol 10954 157 

16 real s/mbox mcbov 1 1320 158 

17 reni s/mOrsc mcdis 1 1355 159 
IBremfymchm mcUk 11135 160 
19 

20 rem = = = = = = = = = = = = = = = = = = = = = = = = 

21 

145 asc "mcoNmseThofF' 

1 46 asc " mdraWmrecTmcirdE ' 

147 asc "m!eAThclflmcoli>R' 
14a asc'rnboXmdisC" " 

62? asc"inchk' bvleieO+"[" 

1145 lAiQidho-l.mcsel-l rTcsl'-l 

1146 ■wordmcdra- l.jncrec-l.mccif'l 

1147 wordmcl»t-l.hci-1,mccQt-l 

1148 wordmcbox-l.mcdia-l 
1622 wordmchk-l 



10472 mcdra 
10474 
10476 
l047Sindrl 

1043O 

10482 

10484 

I04S6 

10488 

10490 

10493 

10-194 

10496 

10498 mdr? 

10500 

10502 

10504 

10506 

10508 

10510 

10512 

10514 mdr3 

10516 

10516 

10520 

10522 

10524 mdr4 

10S26 

105?6 

10530 

10532 

10534 



Ida *0 

^[3 t3 

|a mcgeiS 

Ida '0 

sta Sab 

sta £ae 

Ida r5 
sec 

sbc Ia6 

DCS rrdr? 

eoi nn 

adc #1 

dec. lae 

Sla lad 

Ida $21 
sec 

sbc Saa 

bC5 mdr3 

&0' ffSff 

aoc If] 

dec lab 

sta Saa 

Ida lad 
cmplaa 

bcs mdi4 

Ida Saa 

sla Saf 

Ida HO 

Sla Sa3 

ida iaa 

Sla Sa4 

|Sr mcdiv 



.seleci non- 
, duplicaiir>g 
.gel 5 pa rams 
.zero neg'pos 
,d r )L flag 
,dir V flag 
^get y? val je 
;subfracl yl 
, value and skip 
, over the two? 
, comptemenr 
,rfy2>yl 
;sel neg flag 
.save V diit 
.get x2 value 
.sublraci >;i 
; value and s^lp 
;ove"lbe2's 
, con^plementing 
. and riegaiive 

;^ve X diH 

,Q& y din 

.compare x diM 
, V bigge' 
: n biggei 

;save biggest 
;zero location 

,Qei ■ dill 
.save 
.divide £a4 va^ 



The Ihamoctor 
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MOV n86: Vshim* 6, iMutt 06 



10536 


Ida 


Ia3 


: by Saf val 


10706 


lies mcp5 


. 213 pallern 


10980 pi 9r2 


rls 




11052 


isr 


rclose 


, close ram 


10538 


Sl3 


Sa9 


r 

:copy 16-bif 


10710 


asi 


. 0/1 pallern 


10882. 






11054 


dev 




tesl roi^ done 


10540 


Ida 


Ea4 


, lesult 10 (3a9) 


10712 


asi 


:lo nybble lo hi 


1 0884 mcrea 


Ida Sb4 


,iesiy value 


11056 


bpi 


n^cc4 


, no 


10542 


sta 


Saa 




10714 


as! 




T08B6 


cmplScS 


in range 


11058 


<sr 


add 19 


.advance ne-t row 


10544 


\aa. 


#0 


.i&o location 


10715 


asi 




10860 


bcc mcr2 


yes 


11060 


dec SaS 


.lest all done 


10546 


sta 


£a3 




l07lSmcp5 


pip 


.retrieve carry 


10890 mcrl 


Ida m 


,sel error Hag 


11052 


Ppi 


mcc3 


no 


^0548 


Ida 


Ead 


,pe'torm same 


10720 


bcs mcp6 


,Sl'ip"t3/i pal 


10892 


tts 




11064 


(tS 






10550 


sta 


£a4 


, division ten y 


10722 


asi 


;slnffbrt52 


10894 mcr2 


Ida Sb5 


lest ■ vatue 


n065. 








10552 


PJ 


mcdiv 


. iwkth resull "i 


10724 


asi 


, more places up 


10896 


cmp ffSaO 


: in range 


11058 ho 


Ida 


SdOn 


.hi -res on 


10554 


Ida 


Sa3 


:(Sac) 


10726 mcp6 


sia Sa4 


.save value 


10898 


tcs mcrl 


. no 


11070 


ora 


n20 




10556 


sta 


UC 




10728 


pia 


;pull n^ash value 


10900 


lya 


:push y 


11072 


sia 


SdOii 




10558 


Ida 


Sa4 




10730 


Idy #0 


;in(I index 


10902 


pha 




11074 


Ida 


3d016 


;multicolouron 


10560 


sTa 


Sad 




10732 


|sr ropen 


,open ram 


10904 


jsr pin 9 


create pomier 


n076 


cue 


#sio 




105S2 


tda 


#sao 


,5er plot vaJjas 


10734 


and {Sl9).y 


,and value wilJi 


10906 


Idy *0 


.mil index 


11076 


sia 


Sd0l5 




10564 


sia 


la7 


Jewel Inactions 


10736 


ora £a4 


. mask or patt 


10908 


Ida Sb5 


.gel and save 


110S0 


Ida 


#S6Q 


vm offset Si 800 


10566 


SlA 


lab 


.!o0 5 


10738 


sta {Sl9).y 


.pul value back 


10910 


Isr 


.savelsbtosr 


11082 


sia 


Sd0l8 


hires S2000 


10568 


Idx 


#|a9 


.complemeni(Sa9) 10740 


rsr rclose 


idoseram 


10912 


php 


;pust>si 


11084 


Ida 


SddOO 


select lopmosi 


10570 


|sr 


mcneg 


.if needed 


10742 


imp mub 


.hnjsfi up 


10914 


Isr 


:nexl Isb lo sr 


11086 


and #SIC 


16k ram slice 


10572 


Id* 


flac 


.codplenienijSac) 10744 , 






10916 


jsr ropen 


open ram 


11088 


sia 


SddOO 




10574 


|Sf 


mcneg 


, if needed 


107^6 mcset 


Ida *0 


,sefecf non- 


10918 


Ida (Sl9).y 


.gel value 


11090 


Ida 


Sd02i 


save lo-res 


10576 


Id^ 


Sal 


^number of steps 


10748 


sta t3 


; duplicaiing 


10920 


|Sr rclose 


.close ram 


11092 


sia 


mcuvid 


background. 


I057S mdfS 


Ida 


Sa8 


;copy X val je 


10750 


fsr mcgl 


.get X vaJue, 


10922 


bcs ma3 


.colour 2/3 


11094 


Ida 


S0285 


text colour. 


10580 


&ta 


SbS 


;loplofloc n 


10752 


sta £b5 




10924 


Isr 


;sbifl hi nybble 


11096 


sta 


mcuvid + 


1 char and screen 


10582 


Ida 


Sa6 


;copyy value 


10754 


[sr mcgel 


, y value. 


10926 


Isr 


; to lo nybble 


11098 


Ida 


Sd0l8 




10584 


sta 


$b4 


,toptolloc'n 


10756 


sta Sb4 




10928 


Isr 


.(colour 0^1) 


moo 


sia 


mcuvid 4 


3 


10586 


Ida 


SbO 


.colour -pattern 


10758 


jsf mcgel 


, cdoui paitern 


10930 


Isr 




11102 


jmp 


mcfxer 


.sel up err rtn 


10588 


rs' 


mcpio 


.pfol point 


10760 


jmp rricpJo 


.pioi pomi 


10932mGr3 


pip 


ipull x-valuelsb 


11104. 








10590 


Ida 


ia? 


.accumulate 


10762, 






10934 


bcs JTicr4 


, colour 1 or 3 


1 1 106 hcl 


Ida 


#0 


,create pointer 


10592 


dc 




: Iraciions to 


1 0764 mcgel 


fsr Saefd 


:checii comma 


10936 


Isi 


,shifi2bi1srt 


11108 


sia 


119 


, lohi-resscrn 


10S94 


adc £a9 


; X and y values 


10766 meg 1 


& Sb79e 


.eval 1 byte 


10938 


Isi 




11110 


Ida 


itleO 




10596 


sta 


Sa? 




10768 


ua 


;parameterio ■ 


1 0940 mcr4 


and •a 


save 2 lov^ bits 


11112 


sta 


Sia 




10598 


tda 


£a8 




10770 


tts 




I0942mcr5 


sta Ia3 




11114 


Ida 


#0 


;init a and 


10600 


adc iaa 




10772; 






10944 


pla 


,pull y 


11116 


lay 




, yinde- 


10602 


sta 


SaS 




10774 mcdiv 


Idx #SiO 


.divide 3a4 val 


10946 


tay 




11116 


Idx 


#S20 


. X counts pages 


106D4 


Ida 


Sa5 




10776 


Ida KO 


, by Saf val with 


10948 


Ida Sa3 


.retrieve a 


11120 hell 


sta 


[S19).y 


.clear 32 pages 


10606 


etc 






1077S 


asi Sa4 


: ehili and 


10950mcr6 


rt5 




11122 


my 






10608 


adc Sac 




10780 mcdvl 


jol sublracl 




10952. 






11124 


bne ncli 




10610 


sia 


Sa5 




10782 


t>:s mcdv3 


, h( byte 0l 


10954 mccol 


fsr mcgl 


sei oof ours 


II 126 


inc 


Sia 




10612 


Ida 


Sa6 




10784 


cmpSaf 


; result will Tje 


10956 


sta Sa7 


.leH X value 


11128 


de- 






10614 


adc Sad 




10785 


bcc mcdv2 


.Oorl 


10958 


isr mcgel 


L 


11130 


i:ine hell 




10616 


aia 


Sa6 




10786 


sbc Saf 




10950 


sta Sa8 


top y value 


1TI32 


rls 






10618 


dex 




:dec plois -to-do 


10790 mcdvj 


' rol Sa3 




10062 


isr mcgel 


.right X value 


11134. 








10620 


cpx 


m 


. coun( arid loop 


10792 


rol Sa4 




10964 


sec 


.calc X ditt 


I1l36mcbk 


|sr 


mcgl 


;get x value 


10622 


tme mdi6 


, i! necesMiy 


1079d 


de^ 




10966 


sbc Sa7 




11138 


Sta 


Stj5 




10624 


rLs 






10796 


brte mcdvl 




10968 


tx;c mcr6 


;right<lefl 


11140 


isr 


mcgel 


,get y value 


10626. 








10798 


rls 




10970 


sta $a6 




11142 


sta 


ib4 




10628 mcplG 


^ta 


$a4 


.cciour- pattern 


10800 mcdv3 


1 sbc Saf 




10972 


jsr mcgel 


.bottom y value 


11144 


|sr 


Saef7 


.cfieck -y 


10630 


sra 


14 




10802 


sec 




10974 


sec 


.calc y diff 


11146 


|sr 


mcrea 


.read point 


10632 


Ida 


(3 


.gel mode 


10804 


bcs mcdv2 




10976 


sbc Sa8 




11148 


lay 




^conv lo Ip 


10634 


beq mcp2 


, normal diaw 


10806; 






1097S 


bcc mcr6 


.t>onom<rop 


11150 


imp 


Sb3a2 




10636 


txni 


mcpi 


. X parallel 


10808 mcnec 


] Ida 2.x 


.perform two5 


10980 


sia Sa5 




11152; 








10538 


JS- 


mcp2 


. y parallel 


10810 


bpl men! 


, complemer' of 


10982 


|5r mcgel 


.set background 


ln54mcrsli 


sei 






10640 


Ida 


Sb4 


,gei y value 


10812 


sec 


, count value if 


10984 


sia £d02i 




11156 


Ida 


evtmp 


.fe&tofe previous 


10642 


dc 






10814 


Ida 0,x 


; count direction 


10985 


jsr mcget 


.shift f^i value 


11158 


Idy 


evimp4- 1 


, error vector 


10644 


adc 16 


;add parallel 


10816 


eoc m 


. IS negative 


10988 


asi 


, to hi nybble 


11160 


sta 


S300 




10646 


sia 


lb4 


; value 


10818 


adc ffO 




10990 


35^ 




11162 


sty 


S301 




10648 


Ida 


14 


■.g& colour 


10820 


sta O.x 




10992 


asJ 




11164 


cli 






r0650 


^ 


Sa4 




10822 


Ida 1.x 




10994 


asi 




11166 


Ida 


SdOII 


,^|-res of 


10652 


imp 


mcp2 


.reploi parallel 


10024 


eor 'Sff 




10996 


sia £a9 


,temp save 


11168 


and *Sdf 




10654 rncpl 


|sr 


mcp2 


;plo1 initial 


10826 


adc 10 




10998 


jsr mcget 


,o( with %1 Oval 


11170 


sta 


SdOll 




10656 


Ida 


Sb5 


,get X value 


10S28 


sta 1 ,K 




11000 


and #SOf 




11172 


Ida 


Sd0l6 


:mullicoloui oil 


10658 


etc 






lOS30mcn1 


rls 




11002 


ora Sa9 




11174 


and ffSef 




10660 


adc 


r6 


.add parallel 


10632, 






11004 


sta £a9 


,save 


11176 


sta 


Id016 




10662 


sfa 


ibs 


. value 


10834 ptrlO 


Ida Sb4 


;divide y value 


11006 


isr mcget 


,m 1 value 


11178 


Ida 


SddOO 


.select first 16k 


10664 


Ida 


[A 


.get colour 


10836 


tsr 


, bv4,clearlsb 


11006 


sia £aa 




11180 


ora 


»3 


. ram slice 


10666 


sta 


Sa4 


reploi parallel 


10838 


tsi 




11O10 


Ida #0 


,creale pomier 


11182 


sta 


SddOO 




10668 mcp2 


Ida 


£b5 


get A value 


I0S4D 


and iVSfe 




11012 


sia £19 


.to colour ram& 


11184 


Ida 


mcuvKl 


resiore lo-res 


10670 


cinp#iaO 


,iest off screen 


[0842 


tay 


.up values for 


11014 


Ida #|d8 


, underlying vm 


11186 


sta 


Sd021 


. background. 


10672 


bcc 


mcp4 


.no 


10844 


Ida mctbll,y 


,ni-res map from 


11016 


sia lla 




11188 


Ida 


mcuvid + 


1 . text colour. 


10674 mcp3 


rls 




;a 


10846 


sia £19 


, table, make pir 


11018 


Idy Sa8 


,ad|usl pointer 


11190 


sta 


S0286 


. char and screen 


10676 mcpJ 


Ida 


Sb4 


.gel y valLie 


10848 


Ida mcfbl i + 


l.yin{Sl9f 


11020mccl 


dey 


; for posflion 


11192 


Ida 


mcuvid + 


2 


10678 


onp#$c6 


lesi ofl screen 


10850 


sia 11 a 




11022 


bmi mcc2 


, of area lo be 


11194 


sta 


SdOl8 




10680 


bc& 


incp3 


;¥e5 


10852 


Ida lb4 


:save bils 0-2 ot 


11024 


jsr addl9 


, filled 


11196 


rts 






106B2 


tya 




.pusJi y 


10854 


and *7 


. V val (relative 


11026 


jmp mcot 




11198, 








10663 


pha 






10856 


sia Sa3 


. scan line 0-7) 


1102amcc2 


Ida $19 




n200mcget5r5r 


mcgl 


;get 5 parameters 


10686 


jsr 


plfl9 


,sel up pointers 


1085B 


Ida Sb5 


.6 t^igh bils of 


11030 


cIc 




11202 


sta 


Sid 


,Xl 


10636 


Ida 


Sb5 


.gel low bits oi 


10860 


and #Sfc 


. X value limes 2 


11032 


adc Sa7 




11204 


sta 


SaS 




10690 


and #3 


: jt value to .y 


10852 


asi 


.(screen column) 


T1034 


5(3 SI9 




11206 


IS" 


mogei 




10692 


tay 






10864 


bcc pl9r1 




11035 


bcc mcc3 




11206 


sia 


Sie 


■yi 


10694 


Ida 


fnclbl2,y 


.gel mask patt 


10866 


inc $1a 




11038 


inc Sia 


o-flow if ness 


11210 


sia 


Sa6 




10696 


pt^ 




;push il 


l086BpL9rl 


cic 


■adjust pointer 


1l040mcc3 


Idy Sa6 


.write odour lo 


11212 


jS^ 


mcgel 




10698 


Ida 


Sb5 


.coi)i low pil 


10870 


aa Sa3 


.10 true pes' n 


1l042mcc4 


Ida Saa 


, cQlouf ram 


11214 


sia 


Sit 


.t2 


10700 


Isr 




. inio St as 


10872 


adc S19 


.inaxSCJock 


11044 


sia [Si9),y 




11216 


sta 


S21 




10702 


ptip 




. cany and save 


T0874 


sia £19 




11046 


jsr ropen 


open ram 


11218 


isr 


mcget 




10704 


ISF 




;ne;'f low bit 


10876 


bcc pl9r2 




11048 


Ida £a9 


,write colour to 


11220 


sta 


S20 


,i2 


10706 


Ida 


Sa4 


icoknx paitern 


10879 


inc £la 




11050 


sta ($19),y 


, vm 


11222 


sta 


15 





Tlw TvonsQCtov 



2« 



PHOV 1954: ^lunM 6, luue 06 



U22'i 


jSF nxget 




11396 


Idx #<mxj"ult 


. y factor 


11568 


and #1 




11740 


Idy £a8 


gel K value 


11326 


sta SbO 


.colour 


11398 


Idy #>m>inull 




11570 


bne 


.■ncd14 


sei 


11742 


isr mem- 


, multiply by x 


11328 


ns 




11400 


|sr Sbbtl7 




11573 


Ida 


$a6 


,get y focal pi 


11744 


six £30 


, scalar and save 


11330. 






11402 


|Sr mcget 


gel colour 


11574 


dc 




.add oltsei m 


11746 


ris 




n332mdix5 


pt mccieiS 




11404 


stx StiO 




11576 


Idx 


mcibi4,y 


,0.x 


11748. 




1^ 


11334 


Ida $]i 




11406 


Ida #0 


,clear work area 


11578 


adc 0.x 




Il750mcmx 


sec 


.flag - 1^ 


11336 


cmpSId 




11408 


sta 3a 7 


.y posjtion 


11580 


imp 


mcd15 


.skip 


11752 


.byle $24 




11238 


bcs mcti 




11410 


sta Sad 


.baselo 


11582 mcdM fda 


£a6 


gel y focaf 


1 1 754 mcmy 


dc 


,flag - y 


11340 


Idx Sld 




11413 


sta Sae 


,basehti 


11584 


sec 




,sub!ract offsel 


11756 


php 


.push flag 


11343 


sta Sid 




11414 mcdi 


Idx Jae 


.calc base + 2'y-t i 


11586 


Id. 


mctbl4,y 


, in 0.x 


11758 


isr Sb3a3 


,conv y to f-p 


11244 


^a Sa8 




11416 


Ida £a7 


, m.a'.x 


11588 


sbc 


0,x 




11760 


pip 


.retrieve flag 


11346 


SIX 3 If 




11418 


asJ 




11590mcdie 


) sta 


$a6 


,save y vaLue 


11762 


Dec mcml 


,y multiply 


11248 


stx 321 




11420 


bcc mcci2 




11592 


sla 


15 




11754 


Idy #>mxmult 


, point to X val 


11350md1 


Ida $20 




11422 


mx 




11594 


isr 


mdrl 


draw line 


1176S 


Ida fl'<mxmult 




11252 


cmpSie 




11424mc(J2 


sec 




11596 


Idy 


»SOf 


■reslore old 


11768 


bne mcm2 




11254 


bcs nicf3 




11426 


adc £ad 




11598 mcdie Ida 


mcbuM.y 


, values 


1l770mcml 


Ida *<mymull 


, point 10 y val 


11256 


Idx Sie 




11428 


bcc mcd3 




H600 


sla 


Sa3,y 




11772 


Idy iB'>mymull 




11358 


sla Sie 




11430 


inx 




1160? 


dey 






11774mcm2 


isr $ba36 


, perform muluply 


11260 


sia Sa6 




11432mcd3 


sla £ab 


.save new y value 


11604 


bpi 


mcdlS 




11776 


isr Sblbt 


.conveil 10 ini 


11262 


SI* £30 




11434 


stx Sac 




11606 


Idy 


16 


; bump counier 


11778 


tdx £65 


,gei value 


11264 


su St5 




11436 


sec 


;calc¥-2->; + i 


11608 


my 




.value 


11780 


rIs 




H266fnd2 


<IS 




11438 


sbc Ia8 


, in a/.x 


11610 


sty 


16 




11782; 






11268, 






11440 


bcs mcd4 




11613 


cpy 


HA 


,testcounter = 4 


1 1 784 mclxt 


Ida #0 


.duplicating of 


ll270maec 


jsr ^101(115 


,gel 5 params 


11442 


dex 




11614 


bne 


media 


. no 


11786 


Sla i3 




11272 


Ida #£11 


.duplicaiingon. 


11444 


dc 




Il616mcdl7 Ida 


£ab 


.copy(£ab) 


11788 


|sr meg 1 


,gei X value 


11274 


&a 13 


, vertical hne^ 


1 1446 mcd4 


sbc Sa8 




1161S 


Sla 


£ad 


. to (£ad} 


11790 


Six £a7 




11276 


lOa Sid 


;save x1 


11448 


bcs mcdS 




11630 


Ida 


£ac 




11792 


isr mcget 


.ge1 y valine 


11278 


sia 121 




11450 


dex 




11622 


Sla 


£ae 




11794 


six laB 




11380 


Ida Sif 




1 1452 mcd5 


sta Sa9 


.save ne* ■ value 


11624 


mc 


£a7 


,bumpycounter 


11796 


|Sr mcget 


,x Size 


11382 


sec 


;x1 minus x3 


11454 


stx Saa 




11626 


Ida 


£ac 


lesi hi val pos 


11798 


stx 3a6 




11284 


sbc Sid 




11456 


isr mcmul 


.ad| for factors 


11628 


bpt 


mcdl9 


yes 


11800 


|sr mcgel 


,y si^e 


11386 


sia 18 


.save difference 


114S8 


Ida 9 


,te5t cirde 


11630 


eor 


m 


,oomplemeru 


11802 


stx £a5 




1138B 


jsi mdrl 


.draw line 


11450 


bfie mcdll 


, no - disc 


11632 


lax 






11804 


(S/ mcgel 


.colour pallern 


11290 


Ida «1 


:dra^ duphcaie 


11463 


Idy tfO 


,clear counier 


11634 


Ida 


Sab 




11806 


stx SbO 




11393 


sta 13 


^hofiz lirfces 


11464 


sty l6 


; lor plots 


11636 


eor 


#Stf 




11808 


isr Saeld 


.Check comma 


11394 


Ida $ie 


.save yl 


11456mcd6 


Ida £a5 


,gei X focal pt. 


11638 


cic 






11810 


|sr Iad9e 


eval expression 


11295 


sta Sa6 




11468 


Idx mxtype.y 


.push lype at pt 


11640 


adc #1 




11812 


jsr £b6a3 


.make slnng pir 


11399 


sta IS 




11470 


pnp 




11642 


bcc mcdiS 




11814 


Sla £ad 


; store length 


11300 


Ida £20 


;v1 minijs ¥3 


11473 


Id- m!<adds,v 


:gei;ponsei 


11644 


mx 






11816 


Idy *0 


j&o stf counter 


11302 


sec 


,y1 minus y3 


11474 


pip 


.lesi lype 


11646mcdl8 jfr^p 


mcd20 


:skip 


ll818mcil 


Sly Sae 




11304 


sbc £le 




11476 


beq mcd? 


, addflion 


11648 mcdi9 tax 




,sei up a. X 


11820 


Ida [322Ky 


.gel characlei 


11306 


sta t6 


;save difference 


11478 


sec 


,subtracl value 


11550 


Ida 


SaD 




11822 


cmp #£40 


,conver1 to 


11308 


Ida Sld 


.sei X values 


11480 


sbc 0,x 


aiO.x 


11553mcd20 stx 


12 


.store 


11S24 


bcc mcl2 


. scfeen code 


11310 


sia £a6 


,draw Lines 


11483 


imp mcd6 


.skip addition 


11654 


sta 


7 




m^ 


sbc #$40 


, range 


11312 


Lda £11 




11484mcd7 


dc 


.adduaLueato.x 


11656 


Ida 


Saa 


.test hh val pos 


11838 


cmp f seu 




11314 


sia £21 




11486 


adc 0,x 




11658 


bpl 


mcd22 


, yes 


11830 


bcc mcl3 




11316 


imp mdfl 


.draw Lines 


11 488 mods 


sta SbS 


.update focal pt 


11660 


eor 


»$ff 


, complement 


11832 


sbc *S40 




11318, 


r 1 




11490 


Ida fa6 


;gel y focal p( 


11663 


lax 






11834mcl2 


Idy #0 


calculale 1 6-bil 


ll320mctx» 


i jsr mctixS 


,get 5 params 


11492 


Idx mylypcy 


,push lype at pi 


11664 


Lda 


£a9 




11836 


sty $ab 


; offset into 


11322 


Ida #Q 


.rwduplicaiing 


11494 


pnp 




11666 


eor 


m 




11838 


Idy V3 


; rom cf^araciers 


11324 


sta T3 




11496 


Idx myadds.y 


,gel zp offset 


11668 


dc 






Il840mcl3 


asl 


. by multiplying 


1l326mcbi 


Ida Sie 


, Store yl 


11498 


09 


;iest lype 


11670 


adc 11 




11842 


rol Sab 


, screen code 


11328 


sta 3a6 




11500 


beq mcd9 


. addition 


11672 


bcc mcd2l 




11844 


dey 


,by8 


11330 


sta tS 




11503 


sec 


;sublraci value 


11674 


mx 






11846 


bne mct3 


,addfess with 


11332 


Ida $id 


; store x1 


11504 


sbc Ox 


;aiO,x 


Il676mcd2 


1 imp 


mcd23 


.skip 


11848 


Sla £14 


.upper 3 bits 


11334 


sta S31 




11506 


jmp medio 


:sKip addilion 


Il678nicd22 tax 




.set up a. x 


11850 


Ida Uii 


;add to char base 


11336 


Ida Sir 


, store x3 


11508mcd9 


cic 


, add value aiO,x 


11680 


Ida 


£a9 


■ 


11852 


cic 


, address SdOOO 


11338 


sla 5a8 




11510 


adc Ox 


jelerenced 


Il682mcd23 sta 


£14 


.siore 


11854 


adc «£dO 




11340 


isr mdrl 


,dTawJirke 


1l5l2ntcdlO Sla £b4 


,update loc^ pi 


11684 


stx 


S15 




11866 


Sla £15 




11342 


IfK £ls 


;bump y value 


11514 


Ida £bO 


.colour padern 


11686 


Ida 


12 


:abs hi ol y 


iia^ 


sei 


, loch out iiq 


11344 


Idy £ie 


.Ie3td0r>e( = y3) 


11516 


|sr mcpio 


.plat point 


11688 


crT>p£15 


;abshjolx 


nm\ 


Ida 1 


.swilcJi out i/o 


11346 


Cpy £30 




11518 


Idy 16 


:bump counter 


11690 


bcc mcd34 


,x>y 


11862 


and #£lb 


;loseed-rom 


11348 


beq mcbi 


. yes 


11520 


my 




11693 


Ida 


7 


:lo ol y 


11864 


sla 1 




11350 


bcc mcbl 


,no 


11522 


sly 16 




11694 


cmpSl4 


,lo ol X 


llflfifi 


Idy #7 


.copy & byles of 


11352 


r\s 




11524 


cpy *e 


;lesl couriier <B 


11696 


beq 


mcd34 


.^> = y 


llfl6Bmct4 


Ida (£14). y 


, char delinition 


11354, 






11526 


bne mcd6 


,yes 


11698 


bcc 


mcd34 




11B70 


Sla mcbur2,y 


, lo lxJ<fer 


1135enicdis 


Ida #1 


.flag - disc 


11528 


imp mcdl7 


,skip d=sc rtn 


11700 


Ida 


£a9 


copy current x 


11873 


dey 




11358 


byie £3c 




11530mcdl 


1 Idy #0 


.resei counter 


11703 


sta 


Sad 


. work vafue to 


11674 


bpl mct4 




11360. 






11532 


Sly 16 




11704 


Ida 


Saa 


. Stan value m 


11876 


Ida t 


; reslore i/O 


\ 1 362 mccir 


Ida #0 


.flag - Circle 


11534 


Idy #£0f 


,sei aside daia 


11706 


sta 


£ae 


. case of loop 


11678 


ora #4 




11364 


sta 9 




11536 mcd12 Ida ia3.y 


. to lemp storage 


11708 


dec Sa8 


.dec xploivaLue 


11660 


sta 1 




11366 


Idy #0 


.noduplicaimg 


11538 


sta mcbjfl,y 




117l0mcd24 Ida 


£a8 


.test x<y plot 


nS63 


di 


,enable iiq 


11368 


sty 13 




11540 


dey 




11713 


cmp£a7 


, value 


11SB4 


Lda £a8 


,y plr to plol 


11370 


isr meg t 


.get X focal pi 


11542 


bpl mcd13 




11714 


bcc mcd25 


yes 


11SB6 


sla Sb4 




11372 


st< £a5 




11544mcdl3 Ida la5 


.gel X focal pt 


11716 


imp 


mcdl 


, r^o - loop 


11888 


Lda £a6 


,% multiplier 


11374 


isr mcget 


,get y local pt. 


11546 


Idy 16 


,get counter val 


117iemcd25 ns 






11890 


Sla Sa9 


,coun| down x val 


11376 


stx £a6 




11548 


dc 


;add offset in 


11720, 








11893 


Ida $a5 




11378 


|sr mcget 


,get radius 


11550 


Idx mclblS.y 


.0.x 


ll722mcmui Idy 


£a7 


.gel y v^ue 


11894 


Sla Saa 


.couni down y val 


11380 


six laS 




11552 


adc 0,x 




11734 


F 


mcmy 


,muHrply by y 


11896 


Lda ffO 


,resel rowcouni 


11382 


l$r Saefd 


;chieck comma 


11554 


sla £a3 


;save (xlefl) 


11726 


SI' 


Sle 


. scalar and save 


11898 


Sla £ab 




11384 


jsr Iad9e 


.eval and save 


11556 


Ida SaS 


.gel X focal pt 


11728 


Ldy 


£a8 


.gel ■ value 


11900mcl5 


fda *7 


,in4bHcoun| 


11386 


Idx #<mymijl' 


t , X factor 


11558 


sec 


,sijbtract oNset 


11730 


|Sr 


mcmy 


, multiply by y 


11902 


Sla £ac 




11388 


Idy #>mymul 


t 


11560 


Idx mclbl3.v 


, inO,x 


11733 


six 


Sld 


. scalar and save 


11904 


Ida £a7 


,x value for plol 


11390 


fsi $bbd7 




11563 


sbc 0.x 




11734 


Idy 


Sa7 


.get y value 


11906 


sla Eb5 




11392 


|Sf £aeld 


, check comma 


11564 


sta S2L 


;save (xughtj 


11736 


|sr 


mcmx 


.multiply by X 


11908 


Idy £ab 


,gel char row 


11394 


isr £ad9e 


,eva and save 


11566 


tya 


,test counter Isb 


11738 


six 


£11 


. scalar and save 


11910 


Ida mcbuf2.y 
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11912 mete 


asl ,1esl(ettbil 


12046 mctbll = • ,ni-res line addresses 






11914 


bcc mete 


. clear - TO pfof 


1204 a wordSeOOO 






11916 


pt^a 


;push a 


12050 woidSei40 


Program 5: INL 


AUE 


119l8mci7 


Ida $bO 


;gei colour 


12052 wordSe2B0 




11920 
11922 


isr mcpio 
inc Sb5 


ploi 

;buiTip f value 


1?0^4 word5e3c0 






1 HJsJ^ T'V L^ -JIS^i-HS-rt^ 

12056 wDrdSe500 


PA 


rem inline (aug 25/84) 


ri 


11924 


dec £a9 


.dec x mull 


12058 wordle640 


FH 


1 : 

-- — 




11926 


bne mcl7 


;looptillO 


12060 wordle780 




11928 


imD mcilO 


■skip 


13062 wordSeBcO 


Al 


2 rem 1 statement, functions 


11930 mclQ 


r ~ 

pha 


,push a 


12064 wordSeaOO 


HH 


3: 




11932mct9 
1193J 


lOa #0 

jsr mcpio 


.clea: points 


12066 word Seb40 
12068 wordSeceO 


GO 


4 rem keyword characters: 6 




11936 


inc SbS 


ibijtnp X val 


12070 woidSedcO 


JH 


5: 




1193B 
11940 
11942mcrl0 


dec Ia9 
bne mct9 
Ida Ea6 


.decxmull 
;loop nil 
.leset X mult val 


12072 wordSe'OO 
12074 wordStO40 
12076 wordS"&0 


NJ 
CB 


6 rem keyword routine 

7 rem inline inhn 


line ser # 
3454 030 


11944 


sta Sa9 




12078 wordlt2c0 


MH 


8: 




11946 


pla 


,pu1i bil partem 


12080 wordlt400 


HD 


9 rem = = = = = - = === = = = = = 




11948 


dec Sac 


;couni down 


1208? wo«dSf540 




11950 


bpl mct6 


;looptHI<0 


130&4 wordSf680 


OH 


10: 




11952 


inc Sb4 


.bumpyvaJ^ie 


12066 wordS<7cO 


MM 


T07 .asc "JnlinE" 




11954 
11956 


dec £aa 
bre mci5 


idecymuli 
Joop hll 


12088 word $1900 
12090 word31a40 


OA 


^ 107 word infin-1 




119S8 


Ida SaS 


.reset y m Jl 


12092 wordSlbSO 


GJ 


3454 in in cmp n22 ; 


lest quote 


11960 


sla Saa 




12094 wordSlCCO 


DF 


3456 bne ml ; 


no 


11962 
11964 


Idy Sab 

my 


;bump char row 


12096 wordSleOO 
12098. 


BL 


3458 jSf $aebd ; 


eval prompt string 


11966 


sfy Sab 




12100 nK:(bl2 byfe S3f.Icl,£r3,$tc 


NN 


3460 Ida #$3b ; 


check semicolon 


1196S 
11970 


cpy »& 

bne mcfS 


;te5l <8 

;ye5 


12102 . 

I2l04mcibl3 byte Sid, Sidile.JIe 


OC 


3462 sr Saeff 




11972 


Ida Sa& 


,get X mult 


12106, 


OK 


3464 sr $ab21 ; 


print prompt 


11974 


a^l 


Itimes&ro" next 


I2l08mctbl4 .by(eSll,Sir,S20.I20 


DN 


3466 inl1 jsr $b3a6 ; 


check prg mode 


n976 
11978 


asl 
asl 


, character 


13110. 
121l2mxmull ---+5 


LB 


3468 jsr $a560 ; 


,get input 


11980 


cic 




12114; 


JE 


3470 stx $43 ; 


;store ptr to input 


11982 


adc aa7 




12116mymu(t ' = * + G 


OL 


3472 sty $44 
3474 Ida #0 




11964 
119S6 


sia %37 
Idy Sae 


;bump index into 


12118. 

I2l20mxlvpe byleO.1.0,1,0.1,0.1 


LJ 


;find/creale var 


11988 


my 


; siring 


12122; 


DM 


3476 jsr $b08b 




11990 
11992 

11994 


cpy Sad 
beqal9 

jmp mctl 


;iesi - length 
;handle next ctiar 


12124my[vpe byteO.0, 1.1,0.0, 1,1 

12126, 

I2i28mxadds= - 


EG 
BM 


3478 jsr $ad8f 
3480 Sta $49 


;check string type 
;store pointer to 


11996, 






12130 b/reSid,S1d,Sld.Sld 


EG 


3482 sty $4a 


; descriptor 


12000 


501 


;open up fsm 

; under rteaih the 


12132 0/[eSle.51e.Sle.Sle 
12134 


EA 


3484 Ida $7a 


isave chrget ptr 


12002 


Ida 1 


, roms. disable 


12136myadds- • 


OL 


3486 Idy $7b 




12004 


and HW 


, the Tq and 


12136 byieSlt.SlMlt.Slf 


IJ 


3488 sta $4b 




12006 
12008 


5ta 1 
pia 


; preserve a 


12140 byle S20,S20.S20.S20 
12142. 


1 \j 

NP 


3490 Sty $4c 




12010 


rtt 




12144 mcbufl > = -^-S10 


NC 


3492 Idx $43 


; set eg ptr to 


12012: 

12014 rdose 


■ pha 


iclose up ram 


12146 mcbul2- = -f8 

12148; 


N6 


3494 Idy $44 


; start of input- 1 


12016 


Ida 1 


; underneath the 


12150 • = • + f-&l) ;skipodd byle 


PP 


3496 stx $7a 




12018 


c«a U7 


: roms, enable 


12152 evimp word Se36b .eiror vector 


lA 


3498 sty $7b 




12020 
12022 


sia 1 


; the irq and 

, preserve .a 


12154; 

12156mc'xer sei 


OA 


3500 jsr $73 


; bump eg ptr 


12024 


pla 


1 


12158 Ida $300 . vectortoiemp 


MJ 


3502 Ida #0 


isetstr delimiter 


12036 
1202&; 


rts 




12160 Idy 1X1 .aiorage 
12162 sia evimp 


JC 


3504 sta $07 


; to zero 


I2030add19 Ida $19 


;add screen width 


12164 Sly eytmp + l 


El 


3506 sta $08 




12032 


cic 


, [40, 526) lo 


12166 Ida ff<mcerr copy subsfifule 


CI 


3508 Ida $7a 


;set up string for 


12034 
12036 


adc ff£26 
sia S19 


.poinier{3l9) 


12168 Idy #>mcerj .addresatopage3 

12170 Sia S300 


DM 


3510 Idy $7b 


; assignment to var 


1 ^_lX4_'^v 

12038 


bcc al9 




12172 Sty $301 


FP 


3512 jsr $b48d 




1^040 


inc Sia 




12174 di 


IM 


3514 jsr $b7e2 


;reload eg ptr 


12042 al 9 
12044; 


rta 




12176 rts 
12178; 


LO 


3516 jsr $a9da 


;copy stf to var 








121B0mcerr Fsr mcrstr , restore lo- res 


DI 


3518 Ida $4b 


;restorecg ptr 








12182 jmp [S300) .handleefroi 

12184; 

13186 mcuvid -^-fS ;slOre user video 


NN 


3520 Idy $4c 










NL 


3522 sta $7a 










12188, 


CC 
CL 
OD 


3524 sty $7b 
3526 rts 
3528; 
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The Amiga: A User's Perspective 

Chris Zamara, Technical Editor 



The AmigQ provides new answers to the old question, "Great, but what's it good forT' 



The Amiga may fill the promise of being the tool for the average 
compuler-naive person and enthusiast alike. Because of its 
visually oriented user interface, the consistent way of doing 
things among all programs, and the power and capabilities 
inherent to the hardware itself, this eye-opening machine can 
be used and enjoyed even by the most computer-shy among 
us. And not used as a toy. but as a flexible tool for persons in 
many helds. It is not a business computer, or a "home" 
computer, or a mubic computer, or a graphics computer, or a 
software development system. It is all of these, and manages to 
be well suited to both the computer-phobe and computer- 
phile. 

Regardless of which of these categories you fall under (1 
strongly expect (he latter, though), Ihe following is a look at llie 
main elements of the Amiga from the end user's standpoint. 
(The machine is also great for programmers, but that's another 
article.) The elements of the system which concern the user 
are: The WorkBench, Amiga's efhcient and intuitively- 
operated user interface; the bottom line - examples of actual 
application software; and the basic hardware in terms of ergo- 
nomics and expandability. What follows is a closer look at 
these three elements of the Amiga system and philosophy. 



The WorkBench: Your Link With The System 

The Work Bench is a very fun, friendly and modern (read: 
Macintosh/GBM -like) front end to the powerful AmigaDOS 
operating system lurking beneath. It lets you control the tasks 
and files in the system without knowing that you're doing such 
ominous-sounding work. You'll be starlings tasks and copying 
files, but as far as you're concerned, youVe just using the mouse 
to point to things and select them, or "drag" them over to 
where you want to put them. 

When workbeiich first comes up (after you boot the system), all 
you see is a little picture of the disk you currently have in the 
system drive with its name underneath (if there is more than 
one drive, all mounted disks will be displayed}. Point to the 
disk with the little mouse-controlled arrow on the screen, then 
click the left mouse button twice, and ZAP - a "window" 
appears on the screen displaying the contents of that disk. The 
programs on the disk (called tools) are displayed as icons - little 
descriptive pictures - which can be double-clicked like the 
disk icon to run the program. A window may contain drawers. 



which are sub-directories containing several tools, projects 
(files used by tools), or more drawers. Opening a drawer brings 
up another window somewhere on the screen, showing the 
contents of this new drawer. 

Now it may sound like quite a mess with all of these drawers, 
windows, icons and program names floating around, but each 
window has various gadgets which let you work with only what 
you Ye concerned with. Using the gadgets, you can change a 
window's size by dragging its right bottom corner, and its 
location on the screen by using the "drag bars" to move it 
wherever you wish. You can also push a window to the front or 
the back of a stack of windows using another pair of gadgets on 
the window. All of these operations are done by simple mouse 
moving and clicking. If a window is too small to see all of the 
icons within it, you can either enlarge the window or use the 
scrolling gadgets to see different parts of what's in a window, A 
"close" gadget allows you to get rid of the window. In words, all 
of this may sound rather confusing, but it literally lakes only a 
few minutes to become comfortable with the whole operation. 

The icons representing the tools, projects and drawers in any 
window can be dragged around to other windows. Doing so 
will copy the file to whatever disk or drawer you drag it to. You 
can duplicate an entire disk by dragging its icon to the icon of 
another disk. To get rid of a file, you just drag it into the 
Trashcan, an icon in the main disk window. Until you empty 
the trash, though, you can still retrieve trashed files by opening 
the Trashcan. All of this is great fun, and makes you feel like 
re-organizing all of your files just for the heck of it. Besides 
copying files and running programs, the WorkBench haspu//- 
down menus which allow other functions, like renaming, disk 
initialization, emptying the trash, getting information about a 
file, drawer or disk, and "cleaning up'' a window to neatly 
organize the icons contained within it. 

Puli-down menus are an important aspect of Amiga's environ- 
ment, used by application programs as well as workbench. 
Pressing the right mouse button reveals menu titles, and 
pointing to one of these menus pops up a list of options under 
the menu name. These options can be selected with the 
pointer, and some may have sub-menus which pop up to the 
side, containing additional choices- For example, a ^'change 
color" menu option may have a sub-menu containing the 
choi ces red / gree n / b 1 u e. 
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When a tool is opened (running a program), il can run in its 
own window in ?he workbench. For example, you may open a 
terminal package which brings up a new window. This window 
acts as a computer in itself, with the terminal program running 
inside. Depending upon the tool running, this window can 
usually be re-sized, re-ordered, or closed just like any other 
window. You are free to start as many programs as you wish in 
this manner (limited by available memory}, each with its own 
window; and each running at the same time? By clicking 
any given window, you "select" it so that you can supply input 
to its program and activate that program's pull-down menus. 
The ability to have a number of programs running, each 
available at any given moment, adds a new dimension to 
computer usage. Consider this: you're writing an essay on a 
word processor, and while it's performing a long search 
through text, you get bored and click your adventure game to 
the front. Just before you're about to bite the dust at the hands 
of a bloodthirsty troll, you notice that someone has called up 
your Bulletin Board System, which is running in its own 
window, barely visible above the troll's misshapen head. After 
enlarging the BBS window and chatting with the fellow who 
logged on (the troll has meanwhile enjoyed a satisfying lunch), 
you decide to have a look at how much room is left on your 
disk, so you check the INFO menu after clicking the main 
workbench screen, visible under layers of windows. Clicking 
back to your essay, you find that your word search has long 
since completed and you are ready to write on. A fanciful 
example perhaps, but tl.ere are many real-world occasions 
when you want to do something with the system or another 
program without having to save your project, bring in a new 
program, then bring in the original program again later. Just 
the ability to easily switch between tasks is a marvelous 
convenience: multitasking as well means we're talking serious 
computing power here. 

Some programs take up an entire screen rather than a window. 
This doesn't mean that it dominates the machine, though; you 
can slide the screen down to reveal whatever was there before. 
Like windows, more than one screen can be active, and each 
can be slid up and down to reveal whatever is desired. Like 
windows, screens have re-ordering gadgets to push one to the 
top or bottom of a stack of screens. For a major application 
program, or one that needs a constant screen width, a screen 
can be more convenient than a window. Rach screen may have 
windows within it, since a program may make its own win- 
dows- 
Using workbench gives you an idea of the Amiga's software 
philosophy. You can accomplish a lot without ever using the 
keyboard, and you don't have to know a thing about computers 
to get things done. You'll find that your work on the computer 
is organized more like your daily tasks, because you can 
schedule your time so that several things may be going at once. 
The workbench screen will probably be as neal or as messy as 
you keep your desktop. Once you can use the mouse to control 
workbench functions, you shouldn't have any trouble using 
application software - the basic principles of pointing, clicking 
and menu selection apply to most programs that run on the 
Amiga, Lel^s now take a look at some of these programs. 



Application Software 

One of the ideas behind the Amiga that makes it so easy to use 
is that once you learn Jo use the mouse to point, click and 
choose menu options, you can operate most software. On a 
Commodore 64 or similar computer, there is no such thing as 
"learning how to work the computer"; every program that you 
run will have its own rules and conventions for choosing 
options or selecting functions. With the Amiga, software devel- 
opers are encouraged to use the routines in the operating 
system and to follow certain conventions. This means that you 
can bring up a program and start using it right away because 
you know how to access the menus; how to save, load, or edit a 
project; how to select any options displayed on the screen, etc. 
A consistent user interface among different programs is truly a 
wonderful thing! 

Besides the fact that programs are generally operated in the 
same manner, ihey also will (at least they should] work with 
other programs in the system, in a screen or window which can 
be pushed aside to work on something else. This last point is a 
convention rather than a rule, since it is possible to write a 
program which hogs the whole machine and requires that the 
program be quit, or even the system re-booted, if you wish to 
use another program. Such system-hogging programs, how- 
ever, totally defeat ihepurposeof the Amiga's remarkable user 
environment and should be avoided- Before you buy a pro- 
gram, make sure that il can allow the Amiga to be used as 
intended; as a multi-tasking machine. Avoiding the purchase of 
a system hoggingprogram will serve two purposes: l)savf-yi u 
much frustration when you discover that you can't use . :[ti 
other software, and 2) hopefully establish an unwritten law for 
software developers governing all future Amiga programs. 
While I'm beefing, one more potential problem with Amiga 
software: if you have external RAM on your system in addition 
to the internal 5I2k, some programs will not run properly 
because Ihcy don't specifically allocate video memory when 
they need it (the video chips can only access the internal 51 2k), 
This hopefully won't be a continuing problem, as long a^ 
software developers test their programs on systems with exter- 
nal RAM. 



In order to get an idea of the kind of products you can expect for 
the Amiga, below is a look at three programs currently availa- 
ble, covering different aspects of the Amiga's capacity: graph- 
ics, word processing, and music. These are not product 
reviews, just impressions of programs to illustrate typical 
Amiga applications. 

Deluxe Paint From Electronic Arts 

Deluxe paint is a real showcase for the Amiga^a colour graph- 
ics, and probably the most powerful graphics package on any 
microcomputer. It is oriented towards creating works of art 
rather than design applications, and has a mind-boggling array 
of ways in which to manipulate images. Just a few are given 
below. Besides the usual line, box, ellipse^ and paint com- 
mands, there are unusual features such as being able to scale 
any area^s width and height in real time, by moving the mouse. 
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Rotalion of any boxed area is also provided for. The 32 on- 
screen colours can be set up to encompass any of the Amiga^s 
4,096 colours by using a paletle control which lets you set the 
amount of red, green, and blue for every colour. The paint 
palette can also create a range ot desired colours between any 
two colours you choose, for example shades of grey between 
white and black. You can choose a cycle mode which cycles 
through the colour registers to give the illusion of movement in 
various parts of the picture. The magnify mode makes it easy to 
work in detail on any small section of the picture, and different 
magnification levels can be chosen, there is an airbrush mode 
which works like a real airbrush, spitting out ''drops" of the 
desired colour randomly over a given area. A shading feature 
allows you to make anything you paint over a shade lighter. 
You can dehne any part of the graphics screen as your ''paint- 
brush" and use it for any future painting. This package is a 
natural for the Amiga, using the 4,096 colours for visual effect, 
the custom chips for super-quick area fills and shape drawing, 
and Intuition (the operating system) for an easy user interface. 

Although DPaint is an extremely complex package, using it is 
quite simple because it follows the conventions for Amiga 
programs. Main functions are selected from pull-down menus, 
and modes can be switched by pointing to the desired icon and 
clicking, though some of the icons are a bit cryptic until you 
hgure them out. The program runs in a standard screen, which 
means the whole thing can be pulled down or re-ordered (by 
clicking the re-ordering gadget) to reveal Workbench or what- 
ever was up before. Good! The program comes on a copy- 
protected disk. Not so good, because you can't put the program 
on you favorite utilities disk or make backups. 1 hope it isn't 
necessary for future Amiga software to be copy-protected, but 
if Commodore-64 type piracy persists with the Amiga, it may 
be. Sigh. Incidentally, DPaint is selling for a reasonable price 
considering the quality and power of the package - let's hope 
this sets a trend! 

TextCralt Word Processor From Commodore 

Textcraft is a very easy to use (there it is again, but it's still less 
over-use than '^user-friendly"), "WhatYouSeelsWhatYouGet" 
word processor. The nice thing about Textcraft is that there are 
no text-formatting commands to learn. It takes full advantage 
of a mouse-driven system. Change the margins? Grab the little 
margin markers and move them to where you want - the 
current paragraph re-formats automatically. Change the text 
formal? Click the desired icon to instantly re-format. Headers, 
foolers, page length and the like are selected from requesters 
brought on-screen by a menu option. Text editing functions 
are performed by the current pointer you're using: pencil to 
add text, scissors to cut. camera to copy, glue bottle to paste, 
paintbrush or roller brush to change fonts or text formats over a 
given range. Deleting a section of text is easy: just get the 
scissors, drag them over the text you want to delete, highlight- 
ing it, and release the mouse buUon- In the blink of an eye the 
text is gone, and may be pasted elsewhere in the document 
with the paste icon if you wish. You could figure out everything 
about using TextCraft just by playing, but even so there is 
extensive help available from a help menu, even providing one 



minute tutorials on every facet of the package's operation. 
Forgive me for repeating this just one more time: very easy to 
use. 

As you edit, text on the screen appears exactly as it will on the 
printed page, including italics, bold-face and underlined text. 
You don't have to guess if this printout will finally be the right 
one. Textcraft is so unintimidaling that it will pass this software 
test: take your favorite computer-phobia vichm, you know, the 
one who is scared to get near a computer, let alone touch it, 
since he is certain that his smallest action will result in the 
instant destruction of the frightfully expensive system, or 
worse, that his every move will be electronically recorded and 
surreptitiously passed on to an evil organization who will 
gather information from computer-naive people and go on to 
spread darkness and evil throughout the free world. Take that 
person, sit him or her down in front of Textcraft, and clench his 
white, clammy hand around the mouse. Now tell him he has 
the opportunity to write that letter he's been putting off for 
years. Providing he's used a typewriter keyboard before, the 
chances are good that colour will slowly come to his mouse 
hand, a letter will take form on the screen, and a new mouseke- 
teer will be born. The power of easy software! 

The down side is that Textcraft does not have the slew of 
advanced features found in some other word processors. For 
things like spelling checking, column manipulation, sorting, 
virtual memory, automated table-of-contents, or filling of 
variables from a file, you'll have to look elsewhere. Lots of 
features though, does not preclude ease of use. and soon there 
may be a Textcraft look-alike with a plethora of features. The 
point is, word processing isn't the old. '^Hmmm . . . was that a 
Conlrol-Big-C or Control-Small-c to set a column? Or was it a 
Control K? I Wonder what this mess is gonna look like?. . .". 
Thank God. 

Incidentally, the above observations are based on a pre-release 
version of Textcraft that I saw, but I believe the release version 
has been very little changed. The version 1 saw provided no 
obvious way to re-order or slide its window to get to other 
programs in the system. Horrors! 1 hope this has been corrected 
in the version now for sale. 

Musicraft from Commodore 

Musicraft is an incredible music composition tool that really 
lets your musical creativity express itself, even if you can't play 
an instrument. You use the mouse to put notes up on a staff, 
composing the music as it would look on paper. Notes can be 
changed, inserted and deleted. Music tor up to four voices can 
be composed, any combination of voices being displayed or 
played at once. The exceptional thing about Musicraft on the 
Amiga is the instruments available. The realism is unbeliev- 
able; drums sound like drums. If you've heard computer 
synthesized drums before, that's really saying something. The 
same goes for other hard-to-produce sounds like bells, electric 
guitar, and banjo. There is a large assortment of instruments on 
the Musicraft disk, and each sounds eerily realistic. The trick, of 
course, is Amiga's approach to sound; in effect, the instruments 
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are digital recordings stored in memory and converted to 
analog at a tiigti rate by DMA. That gives you something like a 
programmable tape recorder to play with, making complex 
sounds a piece of cake. You can change instruments at any lime 
in your composition simply by putting an instrument icon on 
the staff instead of a note or rest. Editing a song is fast and 
simple, and while it's playing, you can adjust the speed, tempo 
and other settings by "sliding" on-screen '^controls" with the 
mouse-driven pointer. There are some pretty impressive sam- 
ple songs on the disk that you can bring in to play and edit. 

Besides slaff mode, as it's called, there is also synthesizer mode. 
The synthesizer is a screen full of controls which you can use to 
create your own instrument to use or save on disk with the 
others. You can actually draw your own waveform on a little 
graph, or generate a waveform mathematically by choosing a 
standard function and adding two or three limes its frequency 
to itself at any amplitude. There are literally dozens of mouse- 
operable slide controls on the synthesizer, which control filters, 
oscillators, amplitude generators, and various levels. The set- 
up basically simulates a good synthesizer, but even if you don't 
know what half the stuff does, you'll have a ball just messing 
around with the conlrols and listening to the results (take it 
from me), Musicraft would also pass the test by your local 
computer-paranoid, bul this one doesn't even have to know 
how lo type. In fact, the keyboard isn't required at all, unless 
you want to play notes live, or play along with one of your 
compositions. A keyboard screen lets you see what noles are 
assigned to which keys, and lets you change the assignments. 
In the case of Musicraft, its simple operation is more than just a 
convenience, since it opens the door for many musicians who 
have no desire to learn about programming computers or how 
to use a complex package. I have seen a non-computerisl 
guitar player sit down in front of Musicraft and start producing 
music after a few minutes, concentrating on the composition 
itself rather than on how to use the program. That's how il 
should be. 



The Amiga Hardware 

Here's something that Commodore 64 users in particular will 
appreciate: to add a standard Rpson-type prinler to the Amiga, 
you plug it in and it works. Period, Forget the interface. There is 
a standard parallel printer port provided on the back, and the 
operating system supports mosi popular printers and can use 
their special features. You can tell the system what kind of 
printer you have using the "Preferences" tool on the work- 
bench disk- There is also a serial port on the back, but it uses a 
male instead of the standard female connector, requiring a 
special cable or a male-female adapter. Other Ihan that, it is a 
standard RS-232 port, which you can use to connect a modem 
for telecommunicating. The serial port can run at speeds up to 
19,200 baud. 

The computer unit itself sits on supports on either side and 
leaves enough room underneath for the keyboard to slide 
under when not in use. Handy when desk space is prime real 
estate. Speaking of the keyboard, it is quite light and sits nicely 



on the knee. The fan in the main unit is so quiet that I'll bet 
there are some Amiga owners out there who are reading this 
and saying, "What fan?". 

The built-in disk drive uses 3.5 inch microdisks. These disks 
are much better than floppies since they are protected by a 
hard plastic case and require no storage sleeves, since the 
recording surface is protected by a sliding trap which is moved 
away when the disk is in the drive. Each disk holds around 
880K, and data access is quite fast, a disk duplication taking 
only about 90 seconds. Perhaps best of all, the disks fit in a 
standard shirt pocket. If anyone actually took that detail into 
consideration when designing the 3.5 inch format, I tip my hat 
lo him. 

For further expansion of the system, there is a slot on the right 
side of the machine; devices can be stacked horizontally out to 
the side of Ihis port. This doesn't seem as elegant or reliable as 
a card-cage like in Ihe IBM PC, but the Amiga would have 
probably had to grow loo much in size and cost to accommo- 
date such an arrangement. Several manufacturers will be 
offering motherboards though, to allow proper expansion of 
multiple boards. You can also add more memory. Several 
outhts, including Comspec Communications here in Toronto, 
will be offering two megabyte RAM expansions as soon as 
additional information about Amiga's I/O protocol is released 
to developers. I've been using one of Compsec's prototype 
RAM expansion units for a few weeks now, and having all of 
that memory can really speed things up when you use it as a 
super-fast disk drive. Hard drives are also here now or on the 

way soon from various companies. Imagine a 2,5 Megabyte 
Amiga with a 20 Megabyte hard drive! Awesome, as Commo- 
dore's promotional people say. 



Is It Worth it? 

Judging from the Amiga's real-world usefulness when running 
available, affordable software, il would nol be an exaggeration 
to say that the Amiga may well be worth its price just to run one 
specific program. Musicraft, for example, would be reason 
alone for a budding musician to buy an Amiga, Likewise 
Graphicraf! for the graphic artist or Textcrafl lor Ihe writer. But 
best of all is that anyone can make use of the machine 
regardless of his field of interest or level of computer expertise. 
I just can't see an Amiga languishing in anyone's closet like 
some of the simpler eight-bit machines have been known lo. 
The Amiga appears to be Ihe hrst micro to combine multi- 
tasking, an easy and flexible user interface, advanced graphics 
and sound hardware, and a good operating system. Its only real 
competition is the Atari 5205T and Apple's Macintosh, which 
are good machines in their own right, but neither are multi- 
tasking, both lack the super-fasi hardware graphics capabili- 
ties, and the Mac doesn't have a colour display and isn't easily 
expandable. Which machine wins out remains lo be seen, but 
the Amiga is a very strong contender and deserves your 
consideration if you're looking around. No machine is without 
its flaws, but the Amiga has enough virtues to convince many 
thai it's the best micro available ... for now, anyway. 
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The Amiga; A Programmer's Perspective 

Chris Zamara, Technical Editor 



, . ,can a single mortal 
whip up a game or 
utility within a 
normal lifetime? 



The Amiga is designed lo be pow- 
erful yet easy for anyone to use. In 
other words, it is a machine ori- 
ented to the user, with much of the 
application software being devel- 
oped by the major software com- 
panies. But how is it for the 
average hacker - can a single mor- 
tal whip up a game or utility within 
a normal lifetime? 

Well, he'll have a bit of learning to 
do, but using one of Amiga's BA- 
SICS, he'll be writing programs us- 
ing multiple windows, graphics, 
pull-down menus, the mouse, and even speech in no lime. All 
of those goodies - and others - which are inherent to the 
Amiga environment are available to the programmer even in 
Assembler, because of the built-in operating system functions 
and the libraries available on disk. Programming at the lowest 
level, i.e. manipulating the hardware itself, is pretty much out, 
but theoperatingsystem does so much for you that you'll never 
need lo do so. 

The Amiga comes with BASIC (MelaCompco's ABasiC or Micro- 
soft's Ami gaBasic), and at the time of writing, "C", Pascal, and 
Assembler packages are all available at dealers. The devel- 
oper's kits which are available for the Amiga contain complete 
system documentation and manuals for the included Lattice 
C ■ compiler and the 68000 Assembler - seven manuals in all. 
Most of the elements of this kit are now, or will soon be, 
available at Amiga dealers. The manuals will be released to the 
public as soon as they are finalized; fortunately, the folks at 
Commodore- Amiga seem extremely willing lo make the infor- 
mation widely available! With the help of these manuals, ail of 
the Operating system's features like windows, menus, request- 
ers, etc. can be used from C or assembler; the documentation is 
complete and keeps no secrets about the system. Perhaps the 
only " bad " news for hackers is that there are no mysteries to 
solve or unknown routines to find! 





- *■ 
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Since the idea behind the Amiga is that anyone can use it 
intuitively (hence "Intuition " as the name of the operating 
system), there are certain standards that ail programs must 
follow to work properly in the machine, and other standards 
which are recommended so that there is some consistency 
among application programs. These standards and the many 
Kernel routines available make a bit of study necessary for the 
new Amiga programmer, but allow the creation of complete, 
friendly, professional programs. 

For many applications, programming in either of the available 
BASICS is an extremely easy way to realize much of the Amiga's 
potential. If you want to use C or assembler, you have even 
more control over the system, but you'll need documentation, 
like the Intuition and ROM Kernel manuals, to use all of the 
system's features. These manuals are currently available only 
in the developer's kits, but should be at Amiga dealers soon, 
probably by the time you read this. 

Docu men tation 

As previously mentioned, the Amiga people are keeping few 
secrets about the machine, and there doesn't seem to be a lack 
of information as there was, for example, early in the Commo- 
dore PET days. Some of the manuals aimed at developers are a 
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bit cryptic and extremely technical, but the ones aimed at the 
user - like the AmigaDOS User's manual - are very easy to 
understand and full of examples. Since the Amiga is a very new 
and complex system, updates on these manuals are occurring 
constantly, and the stack of errata pages included with the 
developer's kit is quite large. When the final documentation is 
aclually released to the public, the manuals should be fairly 
accurate, as the questions of developers serve to weed out the 
errors and omissions. 

+ 

Workbench and BASIC manuals come with the system, and for 
the casual BASIC programmer contain everything he'll proba- 
bly need to know. Workbench is Amiga's Icon-oriented user 
interface, and the manual explains how to use it to copy, 
rename, and delete files, duplicate disks, run programs ( " tools 
"). use the window gadgets, etc. Workbench is designed to 
make the system intuitively easy for users to operate, but all of 
its functions can also be performed directly using AmigaDOS 
from CLI, the Command-Line Interface. If you wish to fully 
understand and use CLI and the DOS commands, the set of 
three AmigaDOS manuals is available from dealers. Other 
Amiga books from outside publishers are expected to arrive 
shortly as well. 

The amount of documentation already available suggests that 
the Amiga will be a very "open" system, and software will 
abound from independent users everywhere. In addition, a 
dedicated magazine, Amiga World, already exists. This is no 
shoddy newsletter, but a high-quality, full colour publication. 
Sources of Amiga information for programmers also include 
networks with an Amiga section such as UseNet, not to men- 
tion the Amiga-specific BBS's, User Groups, and newsletters 
which are springing up around the continent. The Transactor 
and other Commodore-specific magazines are also covering 
the Amiga at one level or another. 



AmigaDOS and the CLI 

Even without bringing a particular language into the system, 
you can do some useful things using AmigaDOS through CLI. 
The CLI (Command Line Interface) is a process provided by 
AmigaDOS, and can be run from WorkBench. Like Work- 
Bench, CLI is a user interface to the system, but is command- 
rather than icon-driven. It simply reads commands and exe- 
cutes them. More than one CLI can be active at once, each 
running in its own separate window; a new CLI can be started 
with the NEWCLI command, and a CLi can be ended with 
ENDCLL Actually, when a WorkBench disk is booted, CLI 
comes up and executes a batch file - a series of DOS instruc- 
tions - which invokes WorkBench with the " LoadWb " com- 
mand- In other words, CLI is the first thing the system runs, and 
it is quite possible to run the machine solely from CLI and 
never use WorkBench at all, 

DOS is used primarily for disk management and I/O com- 
mands, and allows you to execute commands or any program 



on disk by simply typing its name. A disk's main or "root" 
directory may contain files, or other directories which may 
contain other files or directories, and so on, DOS maintains a 
disk directory hierarchy and allows you to work with any file or 
directory on disk. Some of the things you can do with DOS; 
display any or all directories, sorted or with the dale/time of 
creation and size also displayed (DIR and LIST), print files to Ihe 
screen as text or hex (TYPE), COPY, DELETE, RENAME or 
JOIN files, set or view the DATE and time, and similar file- 
handling and general system functions. The RUN command 
causes any command or program to execute under a new CLI, 
allowing you to continue in the current CLI while the new job 
executes; in other words it lets you multi-task. Two standard 
commands are ED and EDIT, which Invoke screen or line 
editors. For complete DOS, ED and EDIT command lists, see 
articles elsewhere in this issue. 

All of the DOS commands are on disk as separate, executable 
files, and exist in the "C" directory on the workbench disk. 
When a command is called by name, it is fetched from disk and 
executed. This arrangement makes it possible to add, change, 
or rename commands at wilL The number of commands you 
have available in DOS is only determined by what's in your " 
C" directory, and you can create you own commands simply 
by writing a program and puUing the object file there. 

Any input or output of a DOS command thai would normally go 
to the current window (keyboard and screen) can be re- 
directed to any file or device that you wish, using the < and > 
operators. This way, you could, for example, send output from 
a command such as DATE to a file, or send information to a 
printer on the serial port instead of the screen. You can actually 
create a custom window of any size from the CLI and use it for 
input or output, as you would a disk file or device. Another 
useful device is Ihe built-in RAM disk, which can be used as a 
disk drive; you can copy to or from RAM, get a directory listing, 
make sub-directories, even execute programs or DOS com- 
mands out of RAM. The RAM device is quite handy for program 
development, since you can speed up compilation or assembly 
enormously by doing it directly from memory. This is espe- 
cially attractive if you have additional expansion RAM on your 
system. 

CLI has a provision for batch files - sequences of DOS com- 
mands which are executed directly from a text file. Batch files 
are like simple programs wriUen in the language of DOS, and 
even support primitive control structures; IF . . . ELSE . . . 
ENDIF, and SKIP (a forward GOTO). Batch files can also accept 
parameters when executed, giving a kind of " meta-command 
ability, a command which consists of a series of other 
commands. Batch files are normally invoked by the EXECUTE 
command, but an exception is the file called "Startup- 
Sequence " in the "S" directory, which automatically executes 
when the disk is booted. "Startup-Sequence" normally prints 
a few things, then does a LOADWB to enter WorkBench and an 
ENDCLI to kill the CLI process, leaving you completely under 
the control of WorkBench. You may use Ed or EDIT to change 
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the Slarlup-Sequence, making the system leave you in CLI 
affer re-booting, so that you can use DOS directly without 
having to invoke a CLI from WorkBench. You may set up your 
Startup-Sequence to do anything you want, like display the 
dale^ copy your favourite commands to the RAM disk, start a 
given program, etc. 



ABasiC: The Original Amiga BASIC 

ABasiC from MetaCompCo is the BASIC that until recently was 
shipped with every Amiga. It is in many ways an old-fashioned 
BASIC, much like that on a Commodore 64, but with many 
more commands in its vocabulary. This BASIC uses line num- 
bers, GOTOs, no indenting of program lines, and LISTing of 
programs by line number just like in the old days. It does 
support a WHILE . . . WEND control structure, but that's about 
it for modern features, in fact, in the editing department it's 
back to the dark ages when teletypes roamed the computer 
rooms of the earth: it is a line-oriented editor. No moving the 
cursor over a line and simply changing it to correct it. At first 
this can be a disappointment to those weaned on Commodores 
or similar screen-oriented systems, but once you get used to 
the editor's commands, it's really not all that lerrible. 

The language itself is very rich, allowing mouse input, the 
creation of real windows with all the usual gadgets, a complete 
set of graphics instructions (which work in the blink of an eye 
thanks to the Amiga's custom graphics chips), speech and 
sound capabilities, error trapping, and just about anything else 
you could ask for function-wise. File handling is quite sophisti- 
cated, and works in a similar manner to IBM PC's BASIC; 
random file records are mapped to string variables with the 
FIELD command. Windows are treated as files and can be 
PRINTed to and INPUT from. All graphics and mouse input 
parameters are always relative to the currently active window, 
allowing the user to move around any windows that a program 
is using without the program even knowing - unless it wants 
to. Debugging instructions include TftACE. and a wonderful 
command called FOLLOW which allows you to trace any 
variable and observe it whenever it changes value. The com- 
mands of ABasiC cover such a wide range of functions that 
there's no way to list them all here. Suffice it to say that as far as 
commands and functions go, this language is not wanting. 

ABasiC checks every program line for syntax as it is entered, 
pointing out where in the line an error occurred. Programs are 
stored as pure ASCII files, and can be edited with you favorite 
editor, like ED from CLI, if you wish. This form of storage also 
means that programs are not particularly compact or fast. In 
floating point operations, ABasiC on the Amiga is not much 
faster than some BASICs running on lesser machines like the 
IBM. When it comes to graphics though, stand back! 

When ABasiC comes up, it creates a new screen. It actually 
runs in a window which happens to take up this new screen. 
That means that by re-sizing the ABasiC window, you can get 



to the screen behind it and slide it down to reveal WorkBench 
happily waiting for your return. You are free to merrily switch 
between BASIC and WorkBench without interrupting any task 
which may be executing, like a BASIC program. It's very handy 
to have access to a CLI at any lime without having to abandon 
your current program, and even see part of the program on the 
screen. You can even bring up another BASIC, and have both 
of them running in their own screens, letting you slide them 
around and work with whichever one you wish. You can bring 
up as many BASICs as you have memory for, which isn't many 
unless you have more than the internal 512k of RAM. The 
default ABasiC screen is a 320 by 200 two-bitplane screen 
which allows for 40 characters per line. With the SCREEN 
command, you can change to a 640 by 200 screen and gel 80 
columns. 

You can definitely write some interesting programs using 
ABasiC, and for many applications it will be fast enough. But 
since it is just an ordinary BASIC, your code is liable to be 
difficult to debug, as ail variables are global (no passing of 
parameters to subroutines), and all the necessary GOTOs 
pointing to number by line can weave a tangled spaghetti web. 
For maior applications, things can get just a little bit too messy, 
but If you're used to that sort of language, then you'll like it just 
fine. Other than the line editor, it is far superior to the built-in 
BASIC on any previous Commodore. 



AmigaBasic From Microsoft 

Microsoft's AmigaBasic is the replacement for ABasiC and is 
being shipped with all new Amigas, If you bought an Amiga 
with ABasic, see your dealer about getting an upgrade kit to 
AmigaBasic. AmigaBasic is an up-to-date language which is 
powerful, fast and completely structured. Program line num- 
bers are not required, and your program is edited in a separate 
window from the main "run" window, which displays pro- 
gram output and lets you enter direct-mode commands. The 
WHILE . . . WEND and IF , , . THEN , . . ELSE . . . ENDIF 
constructs exist, and real sub-procedures can be used which 
are invoked by name and can be passed a list of local variables 
or arrays. In short, this BASIC is a structured, COMAL-like 
language which is interactive, powerful, and easy to program 
in. 

AmigaBasic supports most of the commands of ABasiC, with a 
few new features and some new twists. The major advantage 
that this BASIC has is its "Event Trapping '^ capabilities. The 
ON MOUSE command, for example, can be used to name a 
subroutine to be performed when the mouse button is pressed. 
The program then need not check the mouse repeatedly, but 
the mouse-handling routine will be automatically executed 
when necessary- The ON MENU command Is used for checking 
pull-down menus, which were not supported in ABasiC. When 
a menu option is selected, you can have your menu-handling 
procedure performed, even though your program is not explic- 
itly checking for a menu action at the time. These interrupt 
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capabilities exist for object collisions, timer countdowns and 
program breaks as well. Windows are supported more fully 
than in the previous BASIC; now you have a choice as to what 
gadgets you want on any given window. Object animation is 
supported, and an object editor comes on the AmigaBasic disii 
to create sprites and "BOBs" (software sprites). You can 
directly call system library functions if you open the library 
with the LIBRARY command. Again, there isn't enough room 
to list all of the available functions, but there are enough. The 
beauty of this BASIC is that you can write your own procedures, 
much like in COMAL, which are Ihen used exactly like the 
built-in commands. In other words, your program defines new 
commands for you to use and build upon. 

The editor is full-screen, in a window of its own. You can scroll 
up and down through the listing in this text editor of sorts. The 
mouse is used to place the cursor at any spot and to highlight 
sections of text for cut/copy/pasEe operations, or replacement 
of new text. Just use the mouse to highlight any text in you 
program, and type the new text to replace it. Programs are 
totally free-form in this editor, allowing blank lines anywhere 
and indenting of lines to emphasize the control structures. 

Unlike ABasiC, the AmigaBasic environment takes full advan- 
tage of the Amiga's nature, using the mouse, windows, pull- 
down menus, and Amiga-Key " shortcuts" . In fact, it gets a bit 
carried away and forces you to use the mouse for no good 
reason: any program error MUST be acknowledged by clicking 
an "OK" boxin the error requester before continuing -a bit of 
a pain. Also, updating the screen after one of these errors, or 
sometimes while editing, is a bit slow. The environment is not 
hacker-oriented, as it puts ease-of-use over speed, but if sure 
is flexible. 

AmigaBasic occupies not a screen, but two windows in the 
WorkBench environment - one for listing/editing, and the 
main window for issuing commands. These windows are no 
different from any other, and can be modified by the WINDOW 
command at will. Since AmigaBasic programs can be executed 
from WorkBench (they have their own icon), you can have a 
program change the main BASIC window and come up as an 
ordinary tool - the user never has to know it is a BASIC 
program. 

Programs are semi-compiled and stored in a compact way. 
Keywords are tokenized and variables are stored not by name. 
but by reference, with all of the variable names stored at the 
end of the program file. This saves memory and speeds things 
up considerably; standard benchmark programs seem to run 
about three times faster in this than in ABasiC. You may 
optionally save a program as straight ASCII if you wish, or save 
it protected so that it can't be modified, 

r 

All in all. AmigaBasic is a good programming environment and 
can be enjoyed even by those who scoff at normal BASlCs. if it's 
still not fast or flexible enough for your application though, 
you'll have to go to C or assembler. 



Lattice C Compiler For The Amiga 

The LaUice C compiler is part of the developer's kit. or available 
as a separate package from Amiga dealers for a lot of money 
(retail about $450 in Canada). I will not aUempt an explanation 
of the C language in general, but will just give some notes on 
Lattice C on the Amiga, If you aren't a C programmer and wish 
to learn about this widely used language, the definitive re- 
source is the book. The C Programming Language By Brian W. 
Kerningham and Dennis M. Richie. 

First of all, you need at least 512k and two drives to use theC 
development system. It is apparently possible to use a single 
drive for C development, but it is probably quite inconvenient. 
Lattice C on the Amiga contains the standard function library 
(which closely follows Unix C conventions), as well as the 
extensive Amiga library which lets you use all of Intuition's 
special features like window gadget control, graphics functions, 
sprites and the like. The only problem is that all those nifty 
functions are documented only in the two Intuition manuals ( " 
Intuition - The AMIGA User Interface " and the " ROM Kernel 
Manual"), which are currently available only as part of the 
developer's kit. If you don't have the manuals and want to use 
the Amiga to full potential, Your best bet is to haunt the Amiga 
section on various Networks and BBS's in search of source code 
- of which there is quite a bit. Using public domain C programs 
as examples will give you a good idea about how to use the 
common Intuition library functions. If you have the set of three 
DOS manuals, you'll have documentation for all DOS library 

functions, and of course the standard Lattice C functions are 

documented in the C manual. That should keep you busy until 
you can get your hands on the Intuition manuals, which should 
be available from dealers soon. Even if you don't use any of 
Intuition's special features, programming in C is a great way to 
add utilities and DOS enhancements to your system. 

To use Lattice C on the Amiga, you first create the source 
program using your favorite editor, probably the standard 
system editor ED for convenience sake. After saving the file 
with " ,C ' after the filename, you are ready to compile and 
link. To make life easy, a batch file on the C disk called " Make " 
calls the compiler and linker properly for you. You just EXE- 
CUTE Make from CLl, giving it the name of your source file, 
and wait until the work is done. If the compiling and linking 
was successful, you^l have a relocatable, executable object 
module on disk which you can run by simply typing its name, 
like a DOS command or any other program. Using the Icon 
editor from a standard WorkBench 1.1 disk, you can create a 
custom Icon for your program so that you can run it directly 
from WorkBench by just pointing and clicking. 

Be forewarned: programming in C, even armed with all of the 
documentation you could want, is not a beginner's venture. If 
you're a casual weekend programmer, you may want to stick 
with BASIC for awhile, if, however, you're willing to learn a bit 
and want to produce high-quality software, then C may be the 
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way lo go. The Amiga's system software, as well as most Amiga 
application software was written in C, attesting to the flexibility 
and speed of the language. As far as C compilers go, Lattice C is 
not the fastest or most efficient. The future should bring faster 
and possibly less expensive compilers. 



the Amiga Assembler package, you can begin writing simple 
programs immediately. The video i^ames may take a little 
longer, as you'li have to get a hold of the necessary manuals 
and then figure them out, which is no trivial task. 



68000 Assembler 

The 68000 microprocessor has an instruction set which resem- 
bles that of a minicomputer like the PDP-11. It is beyond 
compare with any 8-bit microprocessor; if you're used to 
programming a 6502, the increase in power is akin to trading in 
your Chevelte for a Turbo Porsche. Without getting into details 
at:fOUt programming the 68000, a bit of technical data follows. 
The chip has eight internal data registers and eight address 
registers, each of which is 32 bits wide. Instructions can operate 
on bytes (8 bits), words (16 bits) or long words (32 bits) in 
memory. Addressing modes include; data or address register 
direct (using the value in the specified register); address register 
indirect (u.siag the data in the address pointed to by the 
specified address register); address register indirect with post- 
increment (incrementing the register after an indirect); address 
register indirect with pre-decrement {decrementing the regis- 
ter before an indirect); address register indirect with displace- 
ment (register + displacement = address of data to be used}; 
Address register indirect with index (register + displacement 
+ another register = address of data} and others. Instructions 
can use any addressing mode or combination of addressing 
modes, for example: 

MOVE(A4) + ,100(A1,D2) 

This single instruction means to take the data at the address 
pointed to by the contents of A4 (Address register 4), then 
increment A4; move the data to the address calculated by 
adding the contents of D2 (data register 2) to Al, then adding 
the constant ^00. Machine language fans should delight in the 
power of the 68000. 

The assembler available for the Amiga is a macro assembler 
with a full complement of pseudo-ops for conditional assem- 
bly, listing control, external symbol reference, etc. Also on ihe 
disk is the Linker, which is used to resolve references in your 
source hie to external symbols. The assembler and linker work 
in much the same way as the C compiler and linker, but you 
use " Assem " and " Alink " . Like C programs, your final object 
file will be directly executable from CLI by typing its name. 

The comments in the above C section about using the ROM 
library routines applies in assembler also. You need the Kernel 
manuals to know how to use the fancy operating system 
functions. You also need a 512k system with two drives to use 
the assembler development disk. If you have such a system and 



Simple Machine Language and Debugging 

Up lo this point, the Amiga probably sounds like a vastly 
powerful but somewhat remote system, with such a complex 
operating system that no one can directly influence the state of 
the machine. For those of you who like lo feel firmly connected 
with the workings of the beast, you can actually toy with the 
Amiga's memory directly with the aid of a machine language 
monitor. A program for the Amiga called "Wack" comes with 
the developer's kit. If you have a copy of Wack, you can 
examine memory, disassemble, single step, set breakpoints, 
search memory, and generally have a ball. This is how the 
hackers find out about the machine first-hand, although on the 
Amiga there's a lot to find out about. 

A small subset of WACK is built into the Amiga's "ROM" 
(actually " kickslarl " RAM) and operates through a 9600 baud 
terminal on the serial port. You can access this " ROM Wack " 
directly from a WorkBench menu if you use the command 
loadwb -debug" to bring up workbench instead of the usual 
loadwb " . Rom Wack's short command list can be displayed by 
typing a question-mark on the terminal. You can also enter 
Rom Wack after a software failure causes a " Guru Meditation * 
" alert to threaten bringing the system down. If you hit the 
RIGHT instead of the left mouse button at this point, you wilt be 
dumped into ROM Wack on the external terminal with the state 
of the system preserved. A handy de-bugging feature! 



Other Languages 

As mentioned, Pascal is also immediately available from Amiga 
dealers - I haven't had a chance to look at it yet. There are also 
a few languages in the public domain which can be had for the 
taking. A lot of public domain Amiga software is quite good, as 
it is existing C source ported from other systems. The best way 
to keep abreast of available software is to get a modem and 
snoop out any BBS that has an Amiga section or any Amiga 
messages. By sharing programs and ideas through user groups 
and networks, the Amiga knowledge and software base wi 
spread rapidly. Things are off to a very good start already. 



TtwTraraactor 



37 



May 1986: VolurM 4, Issue 06 



AMIGA DOS & CLI Commands 



by Roy Reddy, Toronto, Ontario 







The following article is meant as a quick reference card for 
those users without an AmigaDOS Manual At time ol 
writing Commodore states that they are supplying AMIGA 
developers with the AMIGA manual sets and that they hope 
to have these manuals available to end users in early 1 986. 
The manuals will be sold through the same retail outlets that 
AMIGA computers may be purchased. 

Since the manual sets are not available to every AMIGA 
user at this time this article becomes more ttmely. The 
mandate of this article is to offer a quick reference to the 
commands available in AmigaDOS. It is not possible to 
cover the commands in more detail than the manuals 
without being larger than the manuals. 

The AmigaDOS environment is very helpful, in fact it has a 
sort of built-in help. If you remember the command but 
forget the pattern for the arguments you can ask Amiga- 
DOS to show you. The syntax for this kind ol help is : 

< Command > < space > ? < return > 

Format ( ) Numeric Brackets - numeric input required 
Note: < >Angle Brackets - denotes user supplied input 
[ ] Square Brackets - indicates optional input 

Thus: [(< >)] would indicate an opTional user supplied input 
that must be of numeric nature if used, 

AmigaDOS will respond by showing you the argument lem- 
plate. This template has three qualifiers which are preceded by 
slashes as follows: 

/A - argument must be present and may NOT be omitted. 
Eg. with the TYPE command, the filename is mandatory 



/K - argument must use this keyword 

Eg. TYPE file OPT H ;The ^'H^' (Hex) option can only be 

specified by using the OPT keyword 

/S - argument is used as a switch 

Eg. LiST QUICK DATE ;Lisls a direcory with only the fi- 
lename and date - QUICK and DATE 
are function toggles 

In future issues the command details and their applications 
could be further discussed but for now let us illustrate the 
commands that are available in AmigaDOS. 



The AmigaDOS Commands Quick Reference Card 



n file or directory names, a colon (;) indicates the root direc- 
tory, and a slash (/) can be used to indicate a subdirectory. If 
any filename contains spaces, double quotes (") must enclose 
the entire filename. Some examples of filenames appear below, 

dfO:goldfish ;refers to file or directory ''goldfish" in root 

directory of drive 

Ark. Animals/Goat ;refers to the file or directory "goat" in the 

directory "Animals" on the disk "Ark" 

iBread ;File or directory bread on root directory on 

same disk as current directory 

Foo; ;Refers to the disk named "Foo" 

:Foo ;Refers to the File or directory named "Foo" 

m the root directory of the current-directory 
disk 

"Music/Songs/Oh When The Saints .,." ;The file or directory 

"Oh When The Saints ../' in directory 
"Songs'' in directory "Music" on current 
disk. Quotes arc needed because of embed- 
ded spaces 
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File Utilities 



Formal 
Template 



cominenl character. Allows comments for use in 
batch hies (Executable sequences of DOS commands) 

[<command>| ; [<commeni>] 

"command" ; "comment" 



Examples : 

copy DFO:c/list to ram: ; Copy list program to RAM drive 

list DFl: ; display directory of DPI: drive 



<> 



Formal 
Template 



Direct command input and output respectively. Al- 
lows redirection of a command's input or output to a 
file or device 

<command> [ < ] or [ > ] [<arg>] 
"command' > "TO" < "PROM" "args" 



Examples 

^ DATE>date^file ;send current date to "date-lile" 
! ECHO > SER: " Messaj^e from Amiga " ;send message to serial port 



COPY 



Format 



copies one file to another, or, copies all the files from 
one directory to another. 

-. COPY [FROM] <name> ] [TO <name> ] [ALL] [QUIET] 

Template . COPY "FROMTO/A.ALL/S.QUIET/S" 

Examples ; 

COPY DFO. TO DFl : ALL QUIET ;copy all files from drive to drive 1 

without printing "copying, .' messages 
COPY Extras:demos/myprog TO DPI :basi<.demos/ ;copy " myprog 
from directory "demote" of disk "Extras" to The directory 

basicdemos" of the disk in drive 1, keeping the same filename 
COPYphnl-lileTOPRT: ;send "print-file' to printer 



DELETE 

Format 
Template 



deletes up to 10 files or directories. 

DELETE <name> [<name>] [ALL] [Q or QUIET] 
DELETE " ,ALL/S.Q-QUIET/S 



Examples 

DELETE out-dated-file ;delete " out-dated-hle ' in current directory 
DELETE lemps/hlel temps/file2 ;ddete "fJleP and " file2 " in 
directory "temps" 



DIR 



shows filenames in a directory. 



Format : DIR [<name>] [OPT A or I or AI] 

Template : DIR "D1R,0PT/K" 

Examples : 

DIR ;display current directory 

DIR DFl: OPT A ;display entire directory structure of disk in drive 

DIRC ;display directory "C" 



ED 



enters a screen editor for text files. 



Formal : ED [FROM] <name> [SIZE <n>] 

Creates a new file if <name> does not exist 

Template : ED " FROM/A,SIZE" 

Examples ; 
! ED temp/ed-file 
J ED large-file SIZE 55000 iAliocate up to 55.000 bytes for file 



EDIT 



enters a line by line editor. 



Format : EDIT [FROM] <name> [TO] <name> ] 

[WITH <name> ] [VER <name>] [OPT <option>] 

Template : EDIT "FR0M/A,T0.W1TH/K,VER/K,0PT/K" 

Examples : 

EDIT ed-file WITH edits VER nil: ;Get edit commands from "edits", 

edit ■ ed-file ' , and do not print any verification of edit commands 

EDIT orig-file TO new-file 



FILENOTE attaches a note with a maximum of 80 characters to a 

specified file. 



1 



Format 
Template 



FILENOTE [FILE] <file> COMMENT <string> 
FILENOTE "FllE/A,COMMENT/K" 



Examples 

FILENOTE my-picture COMMENT "drawn in November " 

FILENOTE src-file COMMENT " source for screen ^ 



JOIN 

Format 

Template 

Examples 



concatenates up to 15 files to form a new file. 

JOIN <name> <name> [<name>] AS <name> 

JOIN " AS/A/K" 

JOIN src-hlel src-nie2 AS all-src 
JOIN text data results AS experiment 



LIST 



Format 



Template 



examines and displays detailed information about a 
file or directory. 



LIST [DIR] <dir> [P or PAT <pai>] [KEYS] [DATES 
[NODATES] [TO <name>] [S <string>] [SINCE <dale> 
[UPTO<date>] [QUICK] 

LIST ^DIR.P = PAT/K.KEYS/S,DATES/S, 
NODATES/STO/K,S/K,SlNCE/K,UPTO/K,QUICK/S" 



Examples ; 

LIST DFl : ;List all files on disks in root directory of disk in drive 1 

LIST P 7? ;List ail files in current directory with names two characters 

in length 
LIST :l S handler ;List all files in directory " f in root directory with 

the characters "handler" somewhere in the filename 
LIST SINCE YESTERDAY ;List all files created since yeslerday 



MAKEDIR 



creates a directory with a specified name. 



Format : MAKEDIR <dir> Template : MAKEDIR VA" 

Examples : 

MAKEDIR DFO:test ; Creates directory "test" in root directory of disk 

in drive 
MAKEDIR RAM:temp/files ;make directory "files" in directory 

temp" In root directory of RAM-Disk 



PROTECT 

Format 
Template 



sets a file s protection status, 

PROTECT [FILE] <name> [FLAGS <status>] 
PROTECT "RLE,FLAGS/K" 



Examples 

PROTECT filel rwd ;Allow " filel " for Read. Write and Deletion 

PROTECT temp/file FLAGS r ;Only allow " temp/file " to be Read 
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RENAME renames a file or directory. 

Formal : RENAME FROM <name> TO or AS <name> 

Template : RENAME "FROM/AJO = AS/A^ 

Examples : 

RENAME OLD-NAME NEW-IMAME 

RENAME ram:c/f lie 1 AS new-file ; 


SORT sorts simple liles. 

Format : SORT FROM <name> T0| <name> COLSTART 
<n> 

Template : SORT " FROM/ATO/A,COI START/K " 

Examples : 

SORT file TO sortcd-file 

SORT list TO sort-list COLSTART 5 ;Sort using data starting at fifth 
byte in each record as sort key 


" 






r 


SEARCH looks for a specified text string In all the files of a 


1 


directory. 

Format : SEARCH [FROM <rjame> or <pattern> [SEARCH] 
<slrin^> ALL 

Template : SEARCH ^' FROM,SEARCH/A,ALL/S" 

Examples : 

SEARCH DEO: [ny-name;Search for the text "my-name" in the root 

directory of tlie disk in drive 
SEARCH DFI: source ALL ;Search for llie text in the root directory 

arid all the directories therein on drive 1 






TYPE Types a file to the screen that you can optionally 

specify as text or hex. 

Format : TYPE FROM] <name> [ TO<riame> [OPT N or H 

Template TYPE ^ PROM/A JO.OPT/K ^ 

Examples : 

TYPE preferences OPT H ;pTJnt hex dump of " preferences " 

TYPE :s/startup-sequence ;print fi e "startup-sequence" in "s" dir. 

TYPE some-file TO ser; ;send "some-hle" to the serial port 


1 




CLI Control 




1 

1 

1 
1 


BREAK sets attention flags in a given process. 

Format : BREAK <task> [ALL] C [D [E [F] 

Template : BREAK ■■TASK/A,ALL/S,C/S,D/S,E/S,F/S^ 

Examples : 

BREAK 6 ;SendaCTRI--Ctotask*6 

BREAK 4 D F ;Sends a CTRL-D and CTRL-F o task 4 


RUN executes commands as a background process. 

Continues CLI as command executes 

Format : RUN<command> 

Template : RUN command + 

command i 

Examp es : 

RU N TY 1* E : s/ st a rt u p-seq ue nee 

RUN COPY :c/list TO RAM: + 

CD RAM: + 

LIST 




CD sets a current directory and/or drive. 
Format ; CD[<dir>] Template ; CD 'DIR' 


Rv;mirf ps ■ 








1 CORAM: ;Set root directory in RAM-disk as the current directory 
CD DFl:temp/l ;set directory "1" in directory "temp" on disk in 
drive \ as the current directory 


! STACK displays or sets the stack size for commands. 

i 

Format : STACK <n>] 

Template : STACK "SIZE' 

Examples : 
STACK 
STACK 9000 




ENDCL1 ends an interactive CLI process. 

Formdt : ENDCLl Template ; ENDCLI 
Examples: ENDCLI 


NEWCLI creates a new interactive CU process. 

Format : NEWCLl [<wijid[)W> 

Template : NEWCLI 'WINDOW^ 

Examp es ; 

NEWCIJ 

NEWCLI CON.30/30/300/120/"'NEWEST CLI" ;Create a new CLI 

process in a window titled " NEWEST CLI " starling at screen co- ! 

ordinates (30,30), 30U pixels wide and 120 pixels high 


STATUS disp ays information about the CLI processes cur- 
rently in existence. 

Format : STATUS <process> FULL TCB SEGS] CLI or ALL) 

Template : STATUS ' PROCESS, FULL/S,TCB/S,SEGS/S. 
CLI = ALL/S" 

Examples : 
STATUS 
STATUS 1 FULL 


PROMPT changes the prompt in the current CLL 

Format : PROMPT <prompt> 

Template : PROMPT '^ PROMPT^ 

Examples : 

PROMPT 

PROMPT " %n> " ;Put current CLI process number in prompt 






WHY explains why a previous command failed. 

Format : WHY 

Template : WHY 

Examp es : 
j WHY 
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Command Seq 


iience 


Control 






ECHO displays the message specified in a command arg. 

Formal : ECHO < string > Template : ECHO " " 
Examples: ECHO "Thisstring was echoed to the screen " 


LAB 

Format 
Examples : 


defines a label (see SKIP). 

LAB<string> Template : LAB <text> 

LAB error-location 
LAB ok 










EXECUTE executes a file of commands. 

Format ; EXECUTE <commandfile> arguments] 
Template : EXECUTE "command-file", "args" 
Examples : EXECUTE ;s/startup-seQuence 








OUIT 

Format 
Examples 


exits from commaiid sequence with a given error 
code, 

QUIT <reTurncode> Template : QUIT "RC 

QUITl'i 
QUIT 










FAILAT fails a command sequence if a program returns an 

error code greater than or equal to specified number. 

Formal : FAILAT <n> Template : FAILAT Vdim" 

Examples : FAILAT 

FAILAT 14 








SKIP 

Format 
Examples : 


umps forward to a LAB in a command sequence (see 
LAB), 

SKlP<label> Template : SKIP 'LABEL" 

SKIP 

SKIP error- location 










IF tests specified actions within a command seouence 








Format : IF NOT] WARN ER1?0R 
<string> EXISTS <name> 

Template : IF "NOT/S.WARN/S.ERROR/S, 

Examples : 

IF EXISTS :c/cd ;execute commands up t 
directory "c" on root directory 


FAIL] [<slring> EQ 
FAIL/S„EQ/K,EX1STS/K" 
oENDIFifthefile "cd^ isin 


WAIT 

Format 
Template : 
Examples : 


waits for, or until, a specified time. 

WAIT<n> SECorSECS] MINorMINS UNTIL<time> 

WAIT \SEC = SECS/S.MIN-M!NS/S,UNTIL/K" 

WAIT ;Wait one second 
WAIT UNTIL 12:25 

WAITS Ml N 






System and Ston 


age Ms 

FAULT 

Format 

Examples : 
FAULT 123 
FAULT! 33 


inagement 






ASSIGN assigns a logical device name to a directory or fi- 

lename. 

Format : ASSIGN [ <name>] <dir> [LIST] 

Template : ASSIGN " NAME,DiR.LIST/S^ 

Examples : 

ASSIGN temp: DFO:source/files 

ASSIGN ;Show all current assignments 


displays messages corresponding to supplied fault or 
error codes. f 

FAULT [<n> Template : FAULT ■„,„ " 

;Display error message *1 23 
234 245 ;Display list of messages for 133, 234 and 245 




FORMAT 

Format 
Template : 
Examples : 


formats and initializes a new 3 1/2 inch floppy disk. 

FORMAT DRIVE <drivename> NAME <string> 

FORMAT "DRIVE/A/K,NAME/A/K^ 

FORMAT DRIVE DFO: NAME " New Blank Disk " 








DATE displays or sets the system date and time, 

1 

Format : DATE <dale> <time> TO or VER <name> 

Template : DATE 'DATEJIME.TO = VER/K" 

Examples : 

DATE ;Display today's date 

DATE TOMORROW ;Adva[ice the currem date by one day 

DATEni-OCT-85 12:32 

DATE TUESDAY ;Set the dale to the upcoming Tuesday 


INFO 

Format : 1 


gives information about the filing system, including 
room left on all mounted volumes. 

NFO Template ; INFO Examples : INFO 


INSTALL 

Formal 
Template : 


makes a formatted disk bootable. 

INSTALL DRIVE] <drive> 

INSTALL "DRIVE/A" Examples: INSTALL DFO: 








DISKCOPY copies the contents of one entire microdisk to an- 
other- 

Format : DISKCOPY FROM <disk> TO <disk> NAME 
<name> 

; Template : DISKCOPY " FROM/A,TO/A/K.NAME/K" 

Examples : 

DISKCOPY FROM DFO: TO DFI: 

DISKCOPY DFO: TO DFO: NAME " Copied Disk " 


RELABEL 

Format 
Template : 

Examples : 


changes the volume name of a disk. 

RELABEL DRIVE] <drive> [NAME] <name> 
RELABEL ^DRIVE/A,NAME/A" 
REUBELDFl: " Disk over there ' 
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AMIGA Editor Commands 

by Roy Reddy, Toronto, Ontario 



There are two editors that come with every AMIGA as parr of the 
WORKBENCH diskette. The names are 'ED' and EDIT'. They are. 
respectively, a screen editor and a line editor. This article is meant lo 
be a quick reference to the commands available in each editor 

ED - The Screen Oriented Editor 

The template for the screen editor "ED" is : 

ED "FROM/A, SIZE/K" 
. where the FROM' argument is the tile to be edited. ED allows 



tor a fife of 40,000 bytes as a detault if more memory is required 
then the SIZE' switch may be used to allocate more memory. 

'ED' has two categories of commands, immediate commands 
and extended commands. Immediate commands are a sequence 
of keystrokes performed while in the middfe of a document. Some 
immediate commands are a combination of the CTRL key and 
another key. Extended commands are executed in a command 
mode. The 25th row of the screen fs reserved for the extended 
command line and is entered by striking the ESC key. Some 
commands are available in both modes. The following list will 
comprise the quick reference tor 'ED'. 



Immediate Commands 



Cursor UP moves cursor UP 

Cursor DOWN moves cur.'^r DOWN 

Cursor RIGHT moves curscjr RIGHT 

Cursor LEFT moves cursor LEFT 



Cursor Movement Immediate Commands 

DEL deletes character under cursor and moves remaining text lefL 

ESC Enters the extended command mode al bottom of screen, 

RETURN returncursorioleftedgeandif in insert mode the current line will 
be broken in two. 



BACKSPACE moves cursor left and erases char. 



TAB 



moves cursor to next TAB position right. 



CTRL + A 
CTRL+B 
CTRL+D 

CTRL+E 

CTRL+F 

CTRL+G 
CTRL+H 



CTRL Key 

Insert a Line after the current line CTRL 

Delete the current line CTRL 

almost equivalent lo CURSOR UP, scrolls text CTRL 
down 

move to opposite (top or bottom) corner of CTRL 

screen. CTRL 

flips the case of the character under the cur- CTRL 

sor CTRL 

will repeal the last Extended command CTRL 

equivalent to BACKSPACE CTRL 



Commands 

+ 1 equivalent to TAB 

+ M equivalent to RETURN 

+0 deletes spaces until next non-space character or deletes character 

as DEL if not a space 

+ R movescursorlo the space following the previous word 

+T moves cursor to the start of the nexl word (non-space) 

+ U almost equivalent to CURSOR DOWN, scrolls text up 

+V will update or redraw the screen 

+ [ equivalent lo ESC 

+ ] move cursor to opposite (left or right) end of current line 



Extended Commands 



ESC or CTRL+I starts ttie extended mode. Some extended commands can contain additional parameters (string or numeric). 
Strings must be delimited by a character other than letters, space, numbers, brackets, or a semicolon. The slash character " f is an 
acceptable delimiter and will be used in the examples in this article. 



A /sir/ 

B 

BE 

BF /str/ 

BS 



insert a line of text ' str " After current line J 

move cursor to the Bottom of the file LC 

set the Block End at cursor position M n 

search for 'string' Backwards N 

set the Block Start at cursor position P 

CE move the Cursor lo the End of the line RP 

CL equivalent to Cursor Left in immediate mode S 

CR equivalent to Cursor Right in immediate mode SA 

CS move the Cursor lo the Start of the line SB 

D Delete the current line SH 

DB Delete the previously defined Block SL n 

DC equivalent to DEL in immediate mode SR n 

E /strl/str2/ Exchange " str2 " for " strl " throughout document ST n 
EQ/slrl/str2/ as above but will Query before Exchange 
EX Extend right margin ignoring defaults 

F /str/ Find "strl" in document 
I /str/ Insert a line of text "str" before current line 
IB Insert a copy of a previously defined Block 

IF /fil/ Insert or merge the File " fil " into the document at the 
current line 



T 

U 

uc 

WB /fil/ 
X 



Joins the current tine with the next 

set ED to distinguish between upper/Lower Case 

Moves the cursor to the line specified by n 

moves the cursor lo the start of the Next line 

moves the cursor to the start of the Previous line 

Repeat the last extended command continuously 

create a new line by Splitting the current line 

Save the document 

moves cursor to the Start of the defined Block 

Show the status (margins, tab length, filename) 

Set the Leit margin to the value specified in n 

Set the Right margin to the value specihed in n 

Set the distance between each TAB to the value 

specified in n 

moves the cursor to the Top of the document 

Undo the last change made (except delete line) 

set ED to NOT distinguish between Upper/lower Case 

Write previously defined Block to file " fil " 

eXit from ED <& write document lo file 
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EDIT: Amiga's Line Oriented Editor 

by Roy Reddy, Toronto. Ontario 



This arliclp describes the line ohenied Editor of AmigaDOS called 
EDIT'. The documentation covering 'EDIT in the Amiga manual 
"AmigaDOS Liscr''> Manual" is 35 pages long. This article and the 
followiijg pages will act as a quick reference guide only and cannol 
cover this Editor in as much detail as the manual. 

Commodore full screen Editors have spoiled me thus making i[ hard 
to get interested in studyinij a line Editor EDIT however offers quite a 
bit of power in that it can modify tiles using commands from another 
file called an "Edit Command File", The following describes EDfTs 
format and template : 

Format : EDIT [FROM]<name> [TO]<name>] [WITH<name>] 
tVER<name>j [OPTPn:Wn:PnWn] 

Template : EDIT ■FROM/ATO.WITH/K,VER/K.OPT/K" 

EDIT hajs some limitations, the first of which, you will discover, is that 
you cannot create a new file using EDIT For this reason the FROM' 
argument must exist even though the keyword 'FROM' is optional. 

The argument TO' instructs EDIT what filename to give the destina- 
tion hie. If the TO' argument is omitted EDIT creates a file and will 



rename it with the 'FROM' name wiicn you Quit EDIT. The original 
hie is saved as ^T/EDIT-BACKIJP' and will remain until the next EDIT 
session. 

The 'WITH' nie is the '^EDIT Command File" which gives EDIT its 
additional editing power. The 'VER' file, if specified, will contain error 
messages that may have been generated during the EDIT session. If 
either the 'WITH' or VER' arguments is omitted, EDIT will u,se the 
keyboard and screen for input and output respectively. 

EDIT has memory and line width defaults that can he. adjusted using 
the 'OPT' keyword and either/both the 'P' & 'W' arguments. With the 
'P' argument you can adjust the amount of memory EDfT uses to 
retain previous lines. The W' argument adjusts the maximum line 
length used by EDIT. The default setting (>[ ihese parameters is 
P40W120 ; 40 previous lines retained & 120 maximum line length. 

This table describes the abbreviations used in this quick reference 
guide. 



/qs/ qualified string <f> 

/I/ string sw 

n line number, or 



file spcciher 
+ or -(on orofO 



< 

> 

# 



move character pointer left 
move character pointer right 
delete character at pointer 



Character Pointer Commands 

$ lower case character at pointer 

% upper case character at pointer 

<SPACE> turn character at pointer to space 



PA /q«/ 
PB /qs/ 
PR 



move character pointer to After /qs/ 
move character pointer to Before /qs/ 
reset character pointer to start of line 



Current Line Positioning Commands 

N move to Next line in memory 



File Search Commands 



M n move to line n N move to Next line in memory F /qs/ search for string /qs/ 

M + move to highest line in memory P move to Previous Jine in memory BF /qs/ search Backward for siring /qs/ 

M - move to lowest line in memory REWIND make current line line *l of source file DF /qs/ search & Delete line with string /qs/ 



Text Display and Verification Commands 



7 

t 

T 

T n 

TLn 

TP 

V sw 



venfy current line 

verify with case indicators 

type lines until end of file 

type n lines forward 

type n lines with line numbers 

moves to lowest hue therj type lines 

switch to turn on/off line display verification 



Commands That Operate Giobaiiy 

GA /qs/t/ GlobaMy place string /i/ After string /qs/ 

GAB /qs/t/ Globally place string /{/ Before string /qs/ 

GE /qs/t/ Globally exchange string /t/ for string /qs/ 

CG [n] Cancel Global operation [n] (all operations if [n] omitted) 

DG [n] Disable Global operation [n] (all operations if [n] omitted) 

EG [n] Enable Global operation [n] (all operations if |n] omitted) 

SHG Show information about Globals in use 



Commands 

A /qs/t/ 

AP /qs/t/ 

B /qs/t/ 

BP/qs/t/ 

CLl 

D 

DFA /qs/ 

DFB /qs/ 

DTA /qs/ 

DTB /qs/ 

E /qs/t/ 

EP/qs/t/ 

I 

l<f> 

R 

R<f> 

SA /qs/ 

SB /qs/ 



That Operate On The Current Line 

insert string /t/ After siring /qs/ on current line 
same as above but moves character pointer 
insert string /t/ Before string /qs/ on current line 
same as above but moves character pointer 
Concatenate current line + string /I/ + next line 
Delete current line 

Delete After string /qs/ to the end of the tine 
Delete Before string /qs/ to the end of the line 
Delete from start of line to After string /qs/ 
Delete from start of line to Before string /qs/ 
Exchange string /qs/ for string /t/ 
same as above but moves character pointer 
fnsert chars from keyboard before chars in line 
Insert chars from file <f> before chars in line 
Replace characters from keyboard 
Replace characters from file <f> 
Split current line After string /qs/ 
Split current line Before string /qs/ 



Input /Output Redirection 



FROM 
FROM <f > 
TO 

TO<f> 
CF<f> 



read From source (original file) 
read From file <f> 
return to original destination file 
send output to file <f> 
Close hle<f> 



Miscellaneous Commands 



= n 

C<f> 
Hn 

Q 

SHD 
STOP 

TR sw 
W 

Z/t/ 



repeal previous A, B, or E command 

set line number to n 

take Commands from file <f> 

set Halt at line n (if n = " then Halt and unset H) 

Quit input from command file, or windup if no command 

file 

Show Data , last cmd, search string 

Stop i quit without changes made to existing file 

switch to suppress Trailing spaces from lines 

Windup ; continue througli the remaining source hie 

change value of current input terjninator string to /t/ 
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Pick Areas 
and Pop Menus 



Darren Spruyt 
Gravenhurst, Ontario 



Drop-Down Menus For Your Commodore 64 



Such a Mile definit<?iy needs explaining. While reading other 
compuler literalure, you may have heard Ihe term POP MENUS'. 
'Pick Areas' are just as common, but less documented. These 
lealures are now available on your C-64 with the help of a short 
assembly language program. 

Pop Menus are just what they sound like. A menu that can be 
popped on' the screen for a decision to be made, then be popped 
off again wlien Ihe decision has been made. You can do just atx)ut 
the same in BASIC, however the machine language version pre- 
sented hear has more features. It automatically remembers what 
was present on ihe screen when it was "popped on' and will restore 
the information back to the screen again when it is popped off,' as 
well as remembering the correct colors. The pop menu on the 
screen also comes complete with a border and a reverse field line 
for selecting the appropriate item in the menu. 

Pick areas are areas on the screen given a (X,Y) posiiiocu width and 
freight and finally an ID number When a pointer on the screen is 
moved into a Pick Area, the area is highlighted (reversed) ajid a 
flag is set to lell the main program that the pointer has been moved 
into a Pick Area. This may not seem like much, but is paves the 
way for powerful menu and selecting features to be added to a 
basic program very easily. The pointer is an integral part of this 
package and it operates from the cursor keys when they are not in 
use. (i.e. during a run of a BASIC program when no input is being 
accepted). 

The PICK AREA and POP MENU machine language program is 
very easy lo use. There are jusl a few SYS's to use (5) and you can 
be on your way to a great looking program. The first SYS turns on 
the PICK program, it is: 

SYS 49 T 52 

This turns on the sprite lo be used as the pointer and sets up the 
required information for the program to operate. The second SYS 
defines a Pick Area: 

SYS49155XV,W,H 

Given the screen as a grid of 0-39 horizontally and 0-24 vertically 
from the lop left corner, (X,Y) is the top left corner of the Pick Area 
with width of W and height of H, The ID ruimber of Ihe Pick Area is 
in location 782 (values froEii 1-16 are normal) so retrieve it with a 
PEEK and remember it for further use. 

SYS 491 61.x 



. , .will delete the Pick Area with ID X from the list of active Pick 
Areas- 

SYS 49164 

. , ,wii] turn off the PICK program and remove the pointer from the 
screen. While the PICK program is active, if the pointer enters a 
PICK area, it's ID will be placed in memory location 2. 

The last SYS is for use with the POP MENUs, and the PICK 
program does not have lo be active for the POP MENUs to work. To 
use a pop- menu, 

SYS 49158, X.Y,W,H,C,A$ 

. . . will create a pop menu at (X,Y) as mentioned earlier with width 
W and height H using color C and using the last parameter as the 
string of data with which to fill the menu. Since the pop-menu 
placesaborderaroundit,thewidthfortext inside the menu will be 
(H-2) and the number of lines allowable will be (V-2). The string 
needs no cursor characters to be included within it - the text will 
'wrap' inside the area automatically. 

If a menu was to be created having A lines of text with each line 
being 6 characters long, and to hold the following information on 
separate lines ■WHITE,BLACK,YELLOW,ORANGE' the following 
would be done. Define a string variable such as; 

A$=^WHITE BLACK YELLOWORANGE" 
SYS 49158, 0.0,8.6, 1.A$ 

This would place a pop menu at (0,0) with the information within 
it. NOTE: the string is to be exactly as written above, the spaces or 
lack thereof is important. Once this has beeji done, the menu will 
be on the screen and a reverse bar will be on the first line of the 
menu. This line is moved up and down with the cursor keys to 
select Ihe item and then the return is pressed. This will then 
remove the pop-menu from Ihe screen, replacing the old data, 
while a number corresponding to which line the selector bar was 
on will be placed in memory location 599, The contents of 5^*^ 
would then beusedlo index to the chosen operation, which in this 
case would be to the correct colour value. 

It may seem complex, but is really very simple to use, also very 
powerful. With such a utility, Basic can be used to produce very 
graphically dppeahng and easy to use programs. A sample pro- 
gram using Pick Areas and two pop-menus appears in Listing I , 
while Listing 2 is a program to create the machine language file on 
the disk. 
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Pop Menus Demo Program 



Pop Menus BASIC Loader 



AN 
JF 
AH 
MB 
MD 
LL 
OA 
CL 
KN 
OM 
IP 
HF 
OG 
ND 

CO 

EB 

MN 

CM 

FK 

PC 

IM 

ME 

Jl 

II 
HM 

Kl 

PH 

FO 

KG 

GD 

GF 

CB 

MD 

MJ 

OM 
PH 
EC 
FM 
MG 
DE 
EP 
KF 
EN 
HN 
IF 
NE 
FC 
BD 
CE 
AB 
OK 



95fffl = -1 !hen200 

1 00 a = peek(49l 52) + peek(491 53)*256 + peek(491 54) 

110ffa = 4108 then 200 

1 20 fl = -1 ;load " pick.mlp.cOOO " ,8.1 

200: 

300hl$ = chr$(192) + chr$(192);h2$ = h1$ + h1$ 

310v$ = chr$(221) 

320 ul$ = chr$(1 76) rem upper left corner (c = & a) 

330 ur$ = chr$(l 74) : rem upper right corner (c = & s) 

340ll$ = chr$(173}: rem lov^er left corner (c= &z) 

350 lr$ = chr$(T 89) rem lower right corner (c = & x) 

1000 rem window using program 

1O1Oprint^0\ 

1030 printul$h2$chr$(1 78)h2$h2$h2$h1 $chr$(1 78) 

h2$h2$h2$h2$h1$ur$; 
1040 print v$ " exjt " v$ " [14 spcs] ' v$ ' background 

[8spcs]^'v$; 
1050printchr${171)h2$chr$(219)h2$h2$h2$h1$ 

Chr$(177)h2$h2$h2$h2$h1$ir$; 
1 060 printvS" time" v$ 
1 070 printvS " on|2 spcsj " v$ 
1 080 print chr$(1 71 )h2$chr$(1 79) 
1090 printvS" opts '^v$ 
1100pnntll$h2$lr$ 
1 200 gosub 60000 
1210qeta$ : 

121 2 print" BHnnB ' :b:ifz = then b = b 4-1 
1214 if a$<>chr$(13) then 1210 
1220if peek(2) - ex then 20000 
1230ifpeek(2) = bk then 2 1000 
1250 if peek(2) = tm then 23000 
1900 goto 1210 
20000 3$= "no yes" 
2001 sys 49158,0.0,5,4, 1 ,a$ 
20020 if peek{599) = 2 then sys 491 64.stop 
20030 goto 1210 
21000 a$ = " black white red[3 spcs]cyan[2 spcs] 

purplegreen blue|2 spcs]yeflow" 
21010 sys 491 58, 21, 0,8,1 0.0,a$ 
21020 poke 53281 ,peek(599)-1 
21030 goto 1210 
23000 ifz = 0then 23100 
23010 z = 

tJmeB|[4 lefts]on[2 spcs] " 



sqqo 



snnn r 



timen[4 lefls]off[1 spc] " 



23020 print" 
23030 gotol 210 
23100 rem 
23110z = 1 
23120 print" 
23130 goto1210 
60000 sys 49152 

60010sys49155J,1,4,1:ex = peek(782) 
60020 sys 491 55,1 ,3,4,2:tm = peek(782) 
60030 sys 491 55, 1 ,6,4,1 op = peek(782) 
60040 sys 491 55,21 J, 10,1. bk = peek{782) 
60050 return 



CC 
IN 
PP 
JE 
JH 
NH 
IL 
EK 
MP 
NH 
IG 
AL 
MA 
PD 
KF 
HN 
HC 
IP 
JN 
FK 
GF 
AM 
MO 
AH 
GF 
DM 
PH 
HH 
NJ 
ML 
IH 
EM 
AM 
F8 
LE 
PO 
FL 
NB 
DF 
KG 
GE 
FG 
KA 
AG 
PC 
01 
Dl 
JG 
MH 
CK 
U 
PE 
DF 
AL 
10 
PI 
CN 
HG 
EP 
BE 
HA 



100 open 15,8,15 

1 10 print#1 5, "sO. pick.mlp.cOOO" 

1 20 open 1 ,8,2, " pick mlp.cOOO,p,w " 

130print#1,chr$(0}:chr$(192); 

1 40 rem start of basic loader code 

150reada,b,d 

160 print" now loading in code." 

170fork = atob 

180 readc:print#1,chr$(c);: 

190 poke 1024,c;poke55296,c 

200 ch =ch + c:next:close1 

21 if chOd then print " data error " :stop 

220 print "done." end 

999data 49152,50321,134294 

1000 data 76,164,195, 76,245,193 

1010 data 192, 76,185,193, 76,201 

1020 data 160, 0, 32, 11, 194. 48 

1030 data 129, 196,201, 3,144,241 

1040 data 196, 201, 3, 144,234, 140 

1050 data 32,234,195,142,149,196 

1060 data 174, 32,158,173,164,101 

1070 data 32,219,182,160, 2,177 

lOaOdata 72.136,177,100,133, 71 

1090data208, 2,198, 72,198, 71 

llOOdata 32, 36,193,160, 0, 32 

1110datal74, 129, 196, 32, 20,193 

11 20 data 196, 136, 169, 110,145,251 

1130data 13,169, 64,145,251,136 

11 40 data 208, 249, 169, 112, 145,251 

1150data 196,169, 40,162,251, 32 

IIGOdata 32, 20,193,174,146,196 

11 70 data 72,224, 1,240, 44,160 
1180data 93,145,251,200,204,112 
1190data 10,177, 71, 32,232,193 
1200 data 76,147,192,136,169, 93 
1210 data 142, 146, 196, 173, 112,196 
1220data 2,162, 71, 32,222,193 
1230 data 192, 172, 112, 196, 136, 169 
1240 data 251, 169, 64,136,240, 7 
1250data 145,251, 76,195,192,169 
1260data251, 162, 1, 32,153,193 
1270 data 196, 32,228,255,174,146 
1280 data 145, 208, 11,224, 1,240 
1290 data 153, 193,202, 76,211,192 
1300data208, 16,138, 
1310 data 196, 240,219, 
1320 data 211, 192,201. 
1330data 2, 169, 128. 
1340data141, 83, 2, 
1350 data 130, 193, 136, 173, 149, 196 
1360data136, 16,251, 96,141,147 
1370data 0.133, 34,169,176,133 
1380 data 0, 32,127,195,165, 1 
1390 data 120, 133, 1, 32,130,193 
1400data196, 172, 112, 196, 136, 173 
MIOdata 16, 11, 177, 34,145,251 
1420 data 145, 253, 76, 93,193.177 
1430 data 34,177,253,145, 36,136 
1440 data 142, 146, 196, 169, 40,162 
1450data222, 193, 169, 40,162, 34 
1460 data 193, 32,130,193,174,146 



24, 105, 2 
32,153,193 
13,208,208 
32, 36, 193 
96, 172, 112 



76, 16 
193, 96 
248,173 
173,112 

88, 2 

32, 253 
165, 100 
100, 133 
165, 71 
169, 
127, 195 
172, 112 
136, 48 

48, 6 
142, 146 
222, 193 
202, 240 
0, 169 
196,240 
145,251 
145,251 

56, 233 

76, 121 
125, 145 

48, 9 
109, 145 
142, 146 
196,201 
239, 32 
201, 17 
205, 129 
232, 76 
142, 87 
169, 1 
196, 32 
145,253 
196, 169 

35. 160 

41,254 
174,129 
147, 196 
177, 36 
251,145 

16,229 
251, 32 

32, 222 
196,202 
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CN 


1470data208, 199, 165, 1. 9 


1,133, 1 


FE 


2100dala165,251, 24,105, 40,133, 


251, 144 




BP 


1480data 88, 96, 165, 34, 133 


36,165, 35 


EG 


21 10 dala 2, 230, 252, 202, 208, 230, 


96, 190 




DA 


1490 data 9, 4, 133, 37, 165 


251, 133,253 


HJ 


2120data 95,196,181,217, 41, 3, 


13, 136 




FB 


1500datal65, 252, 41, 3, 9 


216, 133,254 


GJ 


21 30 data 2, 1 33, 252, 1 89, 240, 236, 


24, 121 




JA 


1510data 96, 160, 0, 138, 141 


146,196, 24 


MC 


2140data 78,196,133,251,144, 2, 


230, 252 




DD 


1520datal09, 95,196,170, 32 


130. 195. 172 


KJ 


2150data 96, 72,173, 16,208, 9, 


128, 141 




GC 


1530data 112, 196, 136, 136, 177 


251, 73,128 


CB 


2160data 16,208,104, 96,160. 63, 


185,248 




OE 


1540 data 145, 251, 136,208,247 


174, 146, 196 


:0A 


2170data195, 153, 192, 3, 136, 16,247, 120 




NA 


1550 data 96, 32,234.195,224 


17,176, 6 


'CN 


21S0data169, 194, 141, 21, 3,169, 


69,141 




AG 


1560data169, 0, 157, 61, 196 


96,169,255 


NJ 


2190data 20, 3, 88,169,128,141, 


21,208 




■AE 


1570 data 96, 173, 21,208, 41 


127,141, 21 


EP 


2200data169, 15,141,255, 7,141, 


88, 2 




NK 


15S0data2O8, 120, 169.234. 141 


21, 3,169 


AG 


2210dala169, 0,141, 61,196,133, 


2, 141 




OP 


1590 data 49, 141, 20, 3, 88 


96, 24, 117 


EB 


2220data 60,196,141, 59,196,169, 


0, 160 




PC 


1600 data 0, 149, 0,144, 2 


246, 1, 96 


HE 


2230data 16,153, 61,196,136, 16, 


250, 169 




i KG 


1610data201, 64, 144, 2,233 


64,201, 128 


GM 


2240data 24,141, 14,208,169, 50, 


141, 15 




iMG 


1620 data 144, 2,233, 64, 96 


160, 16,185 


00 


2250data208, 96,140,146,196. 32. 


253, 1 74 




CB 


1630data 61,196,240, 6,136 


208,248, 169 


PJ 


2260data 32,158,183,172,146,196, 


138, 96 




LK 


1640 data 254, 96, 32, 11, 194 


48,250,153 


CN 


2270 data 254, 0, 0,224, 0, 0, 


240, 




! KK 


1650dala 61, 196, 96, 32,234. 


195,201. 40 


NM 


2280 data 0,216, 0. 0,204. 0. 


0, 198 




; EE 


1660 data 176, 48,153, 78,196 


32,234, 195 


KM 


2290 data 0. 0, 3, 0, 0, 1, 


0, 




AM 


1670data201, 25, 176, 38, 153 


95,196, 32 


KM 


2300 data 0, 0, 0, 0, 0, 0, 


0, 




00 


1680data234, 195,240, 30,153 


112,196, 24 


EN 


2310data 0, 0, 0, 0, 0, 0, 


0, 




10 


1690data121, 76,196,201. 40 


176, 19, 32 


ON 


2320 data 0, 0, 0, 0, 0. 0, 


0, 




LC 


1700data234, 195,240, 14, 153 


129,196, 24 


1 10 


2330 data 0, 0, 0, 0, 0, 0, 


0, 




LA 


1710data109, 95, 196,201, 25 


176, 3,169 


BG 


2340 data 0, 0, 0, 0, 0, 0, 


0, 17 




DO 


1720 data 1, 96, 169,255, 96 


169,194, 72 


BO 


. 2350 data 29,145,157, 0, 0, 0, 


0, 




CC 


1730 data 169, 82, 72, 8, 72 


72, 72, 76 


GA 


2360 data 0, 0, 0, 0, 0, 0, 


0, 




KJ 


1740 data 49,234, 173, 88, 2 


208, 3, 76 


AB 


2370 data 0, 0, 0, 0, 0, 0. 


0, 




DE 


1750datal88, 254, 165, 157, 48 


249, 165,204 


KB 


2380 data 0, 0, 0, 0, 0, 0, 


0, 




. FC 


1760 data 240, 245, 164, 198, 185 


118, 2,162 


EC 


1 2390 data 0, 0, 0, 0, 0, 0, 


0, 




00 


1770 data 3,221, 55, 196,240 


5,202, 16 


OC 


2400 data 0, 0, 0, 0. 0, 0, 


0, 




Gl 


1780data248, 48, 2, 198, 198 


165,203,201 


ID 


2410data 0, 0, 0, 0, 0, 0, 


0, 




KE 


1790 data 7,240, 4,201, 2 


208,216, 41 


CE 


2420 data 0, 0, 0, 0. 0. 0. 


0, 




BA 


1800 data 1,172, 141, 2,240 


9,192, 3 


ME 


2430 data 0, 0, 0, 0, 0, 0, 


0, 




i ND 


1810datal76,205, 9, 2, 76 


143, 194,201 


GF 


2440 data 0, 0, 0, 0, 0. 0, 


0, 




! AC 


1820 data 3,208, 12,172, 59 


196,240, 56 


AG 


2450 data 0, 0, 0, 0, 0, 0, 


0, 




i C 
: NF 


1830data136, 140, 59, 196, 76 
1840data 1,208, 14, 172, 59 


208, 194,201 
196, 192, 99 


CB 


2460 data 0. 








FP 


1850 data 176, 38,200,140, 59 


196, 76,208 










FG 


1860data194, 201, 2,208, 12 


172, 60, 196 




Pop Menus Source Code 






FO 


1870data240, 22,136,140, 60 


196, 76,208 










BH 


1880 data 194, 201, 0,208, 11. 


172, 60, 196 




1 


CiN 


) ays 700 






N 


1890 data 192, 159, 176, 4,200. 


140, 60, 196 






OG 


1 op) 00 






NP 


1900data173, 16,208, 41. 127 


141, 16,208 






PJ 


20;*" ^ipntow atid pop mt'nu nidctdijer -- 






B 


1910data173, 60, 196, 10, 144. 


3, 32, 153 






^G 


^50 ,— t»y darren jamea spruyl ■• 






II 
JF 


1920data195. 24.105, 24,144. 
1930datal95, 141, 14,208,173. 


3, 32,153 
59,196, 10 






GF 

OE 
AF 


'10," -• 

^0 >.(c) 1985 by - 
60 ." darren jimes-'iprLiyf ■• 






JP 


1940dalal05, 50. 141, 15,208, 


173, 60,196 






AK 


IMfUl H^'hnr \:^r\ M^k. 






AA 


1950 data 74, 74, 141, 86, 2, 


173, 59,196 






rtr* 

DO 


LH}\x\f ^Ut flLLL Vdl luUltfZt 

U)lif. = IcOOO 






DO 
HN 


1960dala 74, 74, 141, 85, 2, 
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rinp 


lahlea.x 


.cht^cli a^in^t 


KJ 


31210 


cpy 


lpn:k drpa 


.^cisla-sl 


DI 


41230 Ida '50 






AN 


2''tmi 


l)eq 


all 


;Idb[e 


Al 


31250 


beq 


ckl 


;ves - »o prob 


AA 


41240 sla &d(KJi 






NJ 


20fi70 


dex 






DK 


31260 


Sly 


lempl 


,-shve rtpw oil 


IXi 


41110 tis .sprirepos 






HJ' 


29(1*^(1 


bfll 


dF(» 




I.E 


31370 


Idy 


ipickared 


.reverse lay 


h-H 


42{HK) gclpardm = - 






MO 


2[mii 


bm 


af2 




BA 


3l2^i<] 


iST 


rev area 


.pEckarff) 


FC 


42010 sty lemp 






i.\M 


2070(1 jM 


dti." 


JiS 


;defeTc Irom 


BN 


3I2;H) 


Idy 


ItmpI 


.gsf( new area 


PL 


42020 jsr Eat'fd ;c:heck comma 






\r 


2071(1 jr2 


tdd 


tt[t 


:bu[ftr + liet 


GA 


3I31H] 


Sly 


Iptckarea 


,-srorecL3r ptc 


r.1 


42030 isr $b79e ;0-255 pdramefer 






m 


2072(t 


tmp 


'K»7 




MO 


31310 


J5T 


revdred 


.reverse drea 


FA 


4204U Idy lemp 






I'K 


29730 


bt'(| 


jH 




K,l 


31320^1 


imp 


ilebf 


.ex el 3rq 


AB 


42050 txa ireturn in a 






Ml 


20740 


cmp 


'i(f2 




K! 


31350 ck3 


dev 

r 


-do dll 




ID 


42060 rr-i 






At 


297r)0 


bne 


rx 




F-l 


31370 


bne 


ckl 


;ijpen pLL^h:^ 


LI 


SIMMJO spnkdaia = ■ 






CL 


29760 al3 


iind 


'iOl 




UK 


31380 


Idy 


Ipickari^a 


.ilnone revfb 


KB 


50010. byle*.lllllllO.*.0000{H)00,XOOOOOOOO 






JK 


2076:i 


My 


S02Sd 




PK 


31300 


l&T 


revdred 


JasT^re^i 


KB 


5iH)20 bvle*lllO(HJOO,''tOOOOOOOO.%00000000 






JL 


20765 


r 

t>et| 


tup 




[)J 


3IH10 


\<\» 


'11 




HC 


5fH130 byle* 1 1 1 10000,% 00000000, %OIH)0OO0fl 






NK 


20770 


cpy 


-3 




CP 


31110 


sta 


Ipickared 


.ieltoO 


DD 


50040 .byle^l 101 ]0OO.K00OO0OOO,%£WX)00OOO 






KH 


207KO 




exi 




IN 


3H20 


imp 


trebc 


,done irq 


LD 


5{H150 byie%ll(H)llOO,%00000000,%OOOOOfHHl 






HC 


2!}700 


ora 


'Ut2 




FH 


31999, 








DE 


5(H)60 byle%llOOOI10.%OnOOOOOO,%00000000 






AA 


2980(t 


imp 


cup 




0[] 


32IHI0 revarea 


= 


¥ 


i 


KE 


5(HJ70.byLe%OOOOOOIl.%OIHJO0OOO,!J6O0<)0OIKJO 






NJ 


30100 ['lip 


cmp 


-(►3 


:iqj 


JL 


321HI2 


ly<i 






CP 


50080 .byie*H0OOOOOOl,%OOO(KlflOO,*OlXJ0(KHHl 






CI 


30110 


bne 


cdtwn 




DA 


32fM}4 


beq 


dnl 




AH 


SOlOO.byleO.0,0 






V?. 


30 no 


Idy 


y[>ub 




DP 


32020 


1st 


makep 


.make pnir 


KH 


SOllO.byie 0,0,0 






NA 


30 MO 


beq 


citd 


:af fcjp - ex 


EL 


32^20 


idx 


pickheighl, 


y 


El 


50120 byle 0,0,0 






MFI 


30 HS 


di'V 






BH 


3213" 


Ida 


pickwidlh,) 




01 


.'y)130.hyle 0,0,0 






LXI 


30150 


ily" 


ypoi 


^dctrcdsf 


HD 


■ 32140 


Sfd 


temp 




IJ 


50110 byle 0,0,0 






I.A 


:W)lfiO 


imp 


end 




JP 


32145 


dec 


lemp 




CK 


50150 by[e(t,0,0 






KK 


:H>20(Kili^wn 


i.rnp 


-[ 


;d(jwn 


KP 


i32l50Tv0 


Idy 


temp 




MK 


5()160.byfe(t,0,0 






ICJ 


:yi2i(i 


bne 


clefl 




ME 


: 32160 Tt'l 


Ida 


(Stb).v 


LgeT chfl^ 


GL 


SOI 70 .byfe 0,0.0 






IK 


MiBif 


Idy 


ypos 




JJ 


32170 


eor 


-180 


.reverse 


AM 


.50180 byte 0.0,0 






K[) 


30240 


cpy 


-09 




10 


32 ISO 


an 


(*lb).y 


;bdck lu sc 


KM 


50190 byte 0,0.0 






KA 


302 riO 


bts 


end 


:af boTlom -ex 


IH 


32190 


dey 






EN 


50200 byre 0,0,0 






Kh 


302liO 


iny 






CJ 


322(Hf 


bpl 


rvl 


.finish line 


ONI 


50210 byte 0.0,0 






IH 


:i0270 


sty 


ypos 


;incredse 


AL 


32210 


Ida 


lib 




10 


50220 .byte 0,0.0 






[>l 


3O2W0 


imp 


fnd 




CF 


32220 


i:k" 






CB 


5O500tdblea hyre$n,$ld,$91,t0d 






hM 


30300 iltft 


cmp 


"02 


-M 


BC 


32230 


ddc 


-S28 




MO 


60000 , internal variables 






tlL 


:w)aio 


bfie 


cri^liF 




MA 


■ 32210 


SI a 


lib 




DM 


■ fi(H)10ypos . = - + 1 






MM 


30320 ,leil 








HO 


132250 


bet: 


TV2 




FN 


6(KJ30xpos . = • + ! 






MA 


'M)JM} 


Idy 


X[K& 




LO 


J 32260 


inc 


ifc 


.increase piilr 


Dl 


60050 pareasopen = ■ 






JF 


30340 


beq 


fnd 


M left - ex 


CF 


I32270rv2 


dex 






AN 


60060 byte 0.0,0,0,0.0,0,0,0.0.0,0,0,0.0.0,0 






EE 


30345 


dey 






{IL 


■ 322HO 


bn« 


rvO 


;fLJiisli lines 


OJ 


60080 pareax = - 






KK 


30350 


sLy 


xpos 


:decrfdst 


L£ 


;32290dnl 


ns 






00 


■ 60090 byte 0,0,0,0, 0,0,0 ,0,(}, 0,0,0 ,0,0,0,0,0 






[)N 


m?M 


imp 


end 




HP 


38000 makep 


- 


* 


;mdke pointer 


FL 


tiOIOOpareay = » 






JO 


:i1H0O triijhf 


Lm[) 


■00 


;riiihl 


FP 


38010 


ld>L 


pflreay,v 




CA 


■ fiOllO byre 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 






MM 


31H10 


[Hlf 


vi[6 




CG 


JS02{} mdkepl 


Ida 


tdO.x 


dl [$fb). 


NO 


60120 pickwidth = ■ 






HD 


30420 .hi^hi 








LH 


3fl03O 


and 


•$03 




GB 


60130 byte 0,0,0.0.0,0,0,0,0,0,0.0,0,0,0,0.0 






AH 


3{}4;i0 


Idy 


XpOE 




LM 


38010 


lira 


$0288 


,[<! poini 


M 


fiOHOpickheighr = . 






HA 


30440 


cpy 


-159 


,al righl-ex 


BM 


3S0S() 


sla 


(fc 




\KC 


eOI5O.byfeO,0.0,0,0,O.0,0,0,O.0.0.0,0,O.0.0 






LA 


:n}i,'iu 


bcs 


etid 




KB 


38060 


Ida 


$ecro,K 


, to screen line 


INE 


fi02{Hltemp - = .*! 






MN 


:j04fio 


iny 






MC 


38070 


dc 






EN 


60220dit • = - + 1 






f'l) 


30470 


Sly 


<pos 


^iiicfease 


LD 


3808(1 


adc 


parpax.y 


.according to 


MA 


60210 tempi - = '^\ 






KO 


30l]00 ,'inl 


- 


■ 




GO 


38000 


^id 


51b 




BN 


60500 color - = .-tl i 






CM 


:i05io 


Ida 


IdOlO 




MA 


38! (HI 


bcc 


pnl 


;pick area in 








GG 


:m2u 


and 


'*,Ollllll[ 


PN 


38110 


inc 


tfc 










!SL 


:m:m 


Md 


IdOlO 


izffro high Lil 


iFP 


38120 pnl 


rfs 




;y 








OH 


30540 


Idd 


xpifs 




'OK 


39000 stihir 


= 


* 


;set msbol 
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Dvorak Keyboard 

For The Commodore 64 



Donald P* Maple 
Calgary, Alberta 



. . .Christopher Latham Sholes came up with the QWERTY layout 
which places the most-used letters as far apart as possible, . . 



The following program will redefine tfie Commodore 64 key- 
board fo tfie Dvorak layout. This layout facilitates more effi- 
cient typing and reduces fatigue. 

Contrary to popular belief, the keyboard layout that the major- 
ity of us face when using our computers is neither the first, nor 
only keyboard layout available. As we all know, this keyboard 
layout, ingeniously nicknamed "QWERTY", is an atavism that 
computer users have inherited from the typewriter. 

The invention of both the typewriter and QWERTY keyboard 
can be credited to a gentleman by the name of Christopher 
Latham Sholes. Often limes his name will appear in reference 
to the legendary QWERTY keyboard under the pseudonym of 
the "Sholes" keyboard. This invention came aboul in the 
1 860's» with a patent being i^ranted for both the typewriter and 
keyboard layout together. In truth, prior to Sholes' typewriter 
there were about 50 other typewriter patents in existence. 
Curiously, though, the current Sholes layout is actually an 
improved version of his early attempts. Namely, the original 
layouts proved to be too good in that they enabled the opera- 
tors to achieve considerable typing speed. Contrary to what one 
would expect, this was an unwelcomed feature due to the 
inferior mechanics of the typewriter. The advantages of high 
speed typing were quickly wasted due to the constant jamming 
of the keys. To "correct" this shortcoming, Sholes came up with 
the current QWERTY layout which places the most-used letters 
as far apart as possible on the keyboard, thus limiting even the 
most proficient typist. 

At the beginning of this century, however, several research 
projects were undertaken to speed up both learning to type and 
the typing speed itself. This is where August Dvorak (pro- 
nounced Dvorzhak) came in. He invented the Dvorak Simpli- 
fied Keyboard {see Fig Ijwhich was designed to increase typing 
speed and decrease fatigue by altering the arrangement of the 
keys. This new arrangement was based on word sampling and 
observance of often used words as well as the most common 
three letter combinations (see Fig 2 for the Top Ten). The 
purpose of the new layout was to minimize the movements of 



the users fingers. This, again, prompted numerous studies in 
comparing the efficiency of Dvorak against QWERTY; the 
resultsshowedan improvement between 20% to 50%. Current 
belief is that the actual speed increase is in the 20% range but 
the elimination of fatigue results in a 50% long term improve- 
ment. 

In spite of these impressive statistics, the Dvorak layout has 
been very slow in coming into general acceptance. It is. 
however, most efficient with the English language and the 
increased comfort and speed more than make up for having to 
relearn typing all over again. So, while waiting for voice 

recognition systems to eliminate the use of keyboards alto- 
gether, here goes- , . 



Ladies and Gentlemen, Start Your Keyboards! 

To get some hands on experience, first type in the accompany- 
ing Basic loader program named " DVORAK. LDR " , Make sure 
the program is saved before running it. The Basic loader 
calculates a checksum to insure that ail data is correct. If the 
checksum proves inaccurate, the message "DATA ERROR" 
will show up to indicate the obvious. If, on the other hand, all 
goes well, you will find that your keyboard has been redefined 
along the lines of the DVORAK standard. 

There are some minor variations to the regular DVORAK 
layout due to the uniqueness of the Commodore 64. These are 
as follows: 

Shifted 6 will produce a '£^ sign instead of the standard 
DVORAK cent sign, which is absent with the Commodore 64. 

Shifted -' will produce the -' instead of underdash which, 
again, is absent with the Commodore 64. 

Note also that the graphics characters associated with the keys 
that have been moved, have also moved. This applies only to 
the the graphic characters obtained while the SHIFT key is 
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down. The ones obtained by pressing the Commodore key 
have not moved. This is because only two of the four keyboard 
tables have been redefined. The reason for moving only the 
unshifted and shifted tables is because these two tables contain 
the alphanumeric characters which is where the DVORAK 
keyboard layout is at its strongest. In other words, this layout is 
perceived as most useful in text based applications which use 
graphics characters very sparingly if at all. 

Finally, there has been one minor modification to the KERNAL 
so that pressing STOP/RESTORE will not revert back lo 
QWERTY layoul. This is so that if the program you happened to 
be running kK:ks-uj)» STOP/RESTORE will come to the rescue 
while maintaining the Dvorak keyboard. 



How It's Done 

Before we get into the ins and outs, a few words about how the 
values for individual keys are arrived at in the Commodore 64. 
If you count all the keys on your keyboard, including the 
function and all other special keys, the total number is 65. One 
key, the SHIFT LOCK, is actually the same as the left SHIFT key 
since it mechanically holds this key down. So the actual 
number of keys the system can "see" is 64. These keys, which 
in effect are ji^st simple switches, are arranged into an 8 x 8 
matrix, (see Fig 3) This matrix is connected to two registers of 
the C1A"1 chip. One register, $DCOO (56320), connects to the 
keyboard column, while the other, $DC01 (56321 ), connects to 
the keyboard row. Without going into too much detail, these 
two registers eventually yield the key number. This number is 
used as an index to obtain the actual key value from Ihe key 
table. This value is what we are all familiar with when we 
sample the keyboard using the GET statement in BASiC. 

Thereare. as a mailer of fact, four different key tables. The table 
which is accessed is determined by the operating system based 
on whether the SHIFT, Commodore or CTRL keys are pressed 
in addition to "regular" keys. The four tables are at the 
following addresses: 

1. $EB8l-$EBCl (60289-60354) no special keys pressed 

2. $EBC2-$EC02 (60355-60419) SHIFT pressed 

3. $EC03-$EC43 (60420-60484) Commodore key pressed 

4. $EC78-$ECB8 (60536-60600) CTRL key pressed 



modified, is also copied. This is due to the fact that it is 
impossible lo switch the Kernal ROM out without losing BASIC 
ROM as well. This is accomplished by logically ANDing loca- 
tion 1 with ^$FD (253). Secondly, once the ROMs are copied, 
the keyboard layoul tables are reloaded. Only the first two 
tables are modified because that is where the alphanumeric 
characters reside. 

This program can also be used to experiment with different 
keyboard layouts. The data lines containing the key values 
correspond to the keyboard matrix in Fig 3. Simply locale the 
key to be modified and place the key code in the corresponding 
place in the DATA statements. 

Let us, for example, redefine the Fl key to perform a 'clear 
screen', A quick check in the keyboard matrix (Fig 3) reveals 
that the F7 key is located in row 1, column 5. The correspond- 
ing location in the DATA statements, line 270. entry 5, cur- 
rently contains value of $85 (133}. This is indeed the code for 
Fl as a quick check in the Programmer's Reference Guide will 
verify. If you do not have the above guide, try this short 

program: 

lOgelaS: if a$-^" " tfien 10 
20 print asc(a$) 

!t will wait for a key to be pressed and then show the ASCII 
value of Ihe key in decimal. So, all that is now left lo do is lo get 
the value for a 'clear screen', which happens to be $93 (147), 
and place this value as Ihe fifth entry on line 270. Note that this 
will upset the checksum which accounts for Ihe "DATA ER- 
ROR" message when the program is run. Since this was 
intentional, ignore it and enable the layout by typing: 

SYS 820 
Now press Fl and sure enough, the screen has been cleared! 

Or how about changing the character colour by using one of 
the F-keys? Try pulling a $]C (28) as the sixth entry on line 
270. This will promptly make F3 change the character colour to 
red! 



Conclusion 



Each table contains 65 entries, but this is only lo insure that if 
the search is unsuccessful, the 65th value will be returned. This 
value is $FF (255) and you will find that it is also used in place 
of any invalid or unused key combination. 

The " DVORAK. LDR\ as mentioned earlier, pokes a short 
machine language routine in the cassette buffer. This routine 
basically does two things. First, the complete contents of the 
operating system ROM at locations $E000 - SFFFF (57344 - 
65535) are copied into the RAM below, BASIC, which is not 



This article and the accompanying program have introduced 
some keyboard concepts as applied to Commodore 64. If you 
have any questions or suggestions, you can contact me either 
through this magazine or directly at the address listed below. 

Donald P. Maple 
P.O.Box 23, Station M 
Calgary, Alberta 
Canada T2P2G9 



The Tnmsocf or 



SO 



May 1986: \A>luinB ^ teaue 06 



DVORAK Basic Loader 



VORRK L_RVOUX 



Gl 
FK 
AM 
AP 
EK 
GJ 

01 

EB 

MP 

PF 

ME 

CN 

BH 

EG 

ML 

CJ 

IB 

PF 

FL 

GO 

MJ 

KK 

PL 

AF 

FE 

Al 

OE 

NG 

LL 

MG 

FN 

PM 

EO 

KF 

PP 

GO 

CL 



1 rem save " O:dvorak.ldr " ,8 

100 fori = 820 to 1017: read x$ 

1 1 h = asc{1eft${x$, 1 )}-48: if h>9 then h = 

1 20 I - asc(righi${x$, 1 ))-48: if l>9 then I = I 

130 x = h»16 + l: pokei.x: ch=ch + x: nexi 

140 if ch<>25301 then print " *» data 

error *■» ": end 
150 sys820: print " •- dvorak keyboard 

enabled •*": end 
160; 

1 70 data aO. 00, 84, fb. 84, fd, a9, eO 
180data85,fc, a9, aO, 85, te, bl.fb 
190 data 91, fb, b1,fd, 91, fd, 88, dO 
200 data f5, e6, fe, e6. Ic, dO, ef, a5 
21 data 01 , 29, fd, 85, 01 , a9, 77, 85 
220 data fb, a9, 03,85, fc, a9, 80, 85 
230 data fd, a9, eb,85, fe, aO, 81,b1 
240 data fb, 91, fd, 88, dO, f9, a9, e5 
250 data 8d.d6,fd, 60 
260 rem *** unstiitted keys •♦* 
270 data 14, Od, Id, 88, 85, 86, 87, 11 
280 data 33, 2c, 41 , 34, 3b, 4f, 2e, 01 
290 data 35, 50, 45, 36, 4a, 55. 59, 51 
300 data 37, 46, 49, 38, 58, 44, 47, 4b 
31 data 39, 43, 48, 30, 4d, 54, 52, 42 
320data5d,4c,4e, 3d,56, 53,3f, 57 
330 data 5c, 2a, 2d, 13, 01 , 3d, 5e, 5a 
340 data 31, 5f, 04,32,20,02,27,03 
350 data ff 

360 rem *" shifted keys ♦*♦ 
370 data 94, 8d. 9d, 8c, 89, 8a, 8b. 91 
380 data 23, 2c, c1 , 24, 3a, cf, 2e, 01 
390 data 25, dO, c5, 5c, ca, d5, d9, d1 
400 data 26, c6, c9, 2a, d8, c4, c7, cb 
4 1 data 28, c3, c8, 29, cd, d4, d2, c2 
420 data 5b, cc, ce, 2b, d6, d3, 3f, d7 
430 data a9, cO, 2d, 93, 01 , 3d, de, da 
440 data 21 , 5f, 04, 40, aO, 02. 22, 83 
450 data ff 
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LONER CASE 



UPPER CRSE 



Dvorak keyt-ns.rd/naP l^/FIGURE 1 
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PLRCE 
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:^i PNIi 1 im 


4 
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^ .^ , 
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6 
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iPETCiN 


CP.PT 


F^ ; 


Fl 1 


F3 


F5 
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R 
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D 




c : 


F 


T 


r p 


4 


"7 


V 


G 


3 


E 


H 


U 


V 


s 


1^ 


L„ I 


-T , 


g 


ri 


K 


Ci 


M 


i '^ 


-t- 


i p 


L ; 


1 


W 


1 


? , 


, 


7 


£ 


« 




HOME ; 


P.SHF' 


— 


T ' 


/ 


r-i 


1 


J 


CTRL ! 
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c= 


n 
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Screenboard 


David Tomblin 


For The Commodore 64 Parksville, 




British Columbia 


Probably ibe most rewarding endeavour a computer 


Screenboard BASIC Loader Program 


hobbyist can pursue is usinc the computer to help other 




people. The following program is just such an endeavour. 


i ND 


10 rem* data oaderfor "screenboard" • 




LI 


20cs = 


InTransactor Volume 5 Issue 4 there was an article called 


LF 


30 for i = 491 52 to 49903:read a:poke i,a 


^'Helping The Handicapped". \i you missed it. the article 


: DH 


40 cs = cs + a:nexi i 


concerned an attachment (or a whee chair consistmg of 


: GK 

1 


50: 


pushbuttons on a board that could be used as a joystick 


CD 


60 if CSO79077 then print " Idata error! " end 


simulator. I read the article while going through my back 


DD 


70sys49152 


issues of the " T " and was inspired to write the program 


AF 


80 end 


you see here. 


IN 


100: 




DH ; 


1000 data 76, 18.192, 14, 0, 0, 0, 


"Screenboard" is what I call this program and the name 


AM 


1010 data 0, 0, 0, 0, 0, 0. 0, 


describes it well. Because of certain physical handicaps, 


GC 


1020data 0, 0,120,169, 89,141, 20, 3 


the keyboard of a computer is just another obstacle for 


EP 


1030 data 169, 192, 141, 21, 3, 173,143, 2 


some people. What Screenboard does is make keyboard 


KE 


1040data141, 14,192,173,144, 2,141, 15 


operation as easy as using a joystick. 


AG 


1050 data 192, 173, 40, 3,141, 16.192,173 




BD 


lOeOdata 41, 3,141, 17,192,169. 74,141 


When executed, the program will display keyboard char- 


DK 


1070data 40, 3,169,192,141, 41. 3, 88 


acters in the top portion of the screen. A cursor is moved 


KE 


lOSOdata 96,173, 12,192,141,141, 2,108 


around inside the keyboard 'window* by moving a joy- 


GO 


1090 data 14,192,173, 13,192,240, 7,133 


slick plugged into port 2. A key is selected by p aclng the 


MD 


1100 data 145, 169, 0,141, 13,192,108, 16 


cursor over the desired character or abbreviation (eg. 


OA 


11 10 data 192, 32,118,193, 56, 32,240,255 


CUP for cursor-up) and pressing the fire button. 


El 


11 20 data 224, .6,176, 6,162, 6, 24, 32 




NB 


11 30 data 240, 255, 32,113,192, 76, 49,234 


On a more technical side, the program is executed 


B 


1140data 96,173, 0,220, 41, 31, 73, 31 


througii the IRQ vector so it may not be compatible with 


PK 


1150data133,253,208, 8,169, 0,141, 6 


all software. It also works through the 'test stop key* 


KG 


1160 data 192, 76,233,192,173, 6,192,208 


vector at $0328, It may be disabled by hitting the restore 


MD 


1170data 96,169, 1,141, 6,192,169, 16 


key. 


LK 


llSOdata 36,253,208, 86,165,253, 41, 1 




MF 


1190 data 240, 2,162,216,165,253, 41, 2 


The PAL source code is included for anyone who wishes 


JK 


1200 data 240. 2,162, 40,165,253, 41, 4 


to see how it works or modify it. The basic loader, for 


FC 


1210 data 240, 14, 173, 4,192,201,120,144 


those who don't is rather lengthy to type in but probably 


JB 


1220 data 5,162,252, 76.184,192,162,254 


worth the effort (thank goodness for Transactor disks). 


HA 


1230 data 165, 253, 41, 8,240, 14,173, 4 




LM 


1240data192, 201,120, 144, 5, 162, 4, 76 


I hope this program will open up the fascinating world of 


HP 


1250data204, 192, 162, 2, 134, 139, 173, 4 


computers to many handicapped people. 1 also hope 


HB 


1260data192, 24,101,139, 16, 4,201,200 


other computer users will use their skil s to help people 


OP 


1270data176, 15,141, 4,192,141, 5,192 


less fortunate than themselves. Thanks to Phillip J. 


HL 


1280 data 201, 120, 144, 5, 41,252, 141, 5 


Honsinger for the inspirational article. 


PK 


1 290 data 1 92, 96, 1 73, 4, 1 92, 201 , 1 20, 1 76 




JD 


1300 data 4, 74, 76,253,192, 56,233,120 




!E 


1310 data 74, 74, 24,105, 60,170,189, 26 




PI 


1320data194, 201,249. 176, 35,224, 37,176 




JP 


1330 data 12,189,203,194,133,203, 32, 65 




Nl 


1340data192, 32,101,193, 96,164,198,204 
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FH 
NE 
DM 
BA 
CJ 
NP 
CF 
MK 
BN 
PL 
ID 
CA 
NL 
AN 
HO 
EP 
IP 
AB 
NP 
PP 
BF 
FN 
KE 
ND 
JJ 
OP 
KH 
AG 
EL 
LL 
MF 
JL 
Fl 
KA 
CB 
ND 
JA 
MP 
KB 
LG 
CA 
LC 
BE 
BH 
DH 
DK 
IE 
IH 
NN 
CI 
GJ 
NH 
MJ 
AG 
Fl 
LJ 
JL 
PG 
KK 



1350 data 137, 
1360 data 11 9, 
1370 data 201, 
1380 data 192, 
1 390 data 1 , 
1400 data 69, 
1410 data 0, 
1420 data 2, 
1430 data 9, 
1440 data 2, 
1450 data 7, 
1460 data 16, 
1470 data 2. 
1480 data 10, 
1490 data 0, 
1500 data 41, 
1510 data 128, 
1520 data 0, 
1530 data 162, 
1540 data 3, 
1550 data 173, 
1560 data 24, 
1570 data 165, 
1580 data 145, 
1590 data 200, 
1600 data 169, 
1610 data 0, 
1620 data 72, 
1630 data 10, 
1640 data 194, 

1650 data 192, 
1660 data 169, 
1670 data 254, 
1680 data 71, 
1690 data 79, 
1700 data 86, 
1710 data 51, 
1720data 93, 
1730 data 39, 
1740 data 60, 
1750 data 157, 
1760 data 13, 
1770 data 42, 
1780 data 68, 
1790 data 82, 
1800 data 69, 
1810 data 76, 
1820 data 32, 
1830 data 84, 
1840 data 255, 
1850 data 255, 
1860 data 255, 
1870 data 32, 
1880 data 32, 
1890 data 80. 
1900 data 21, 
1910 data 39, 
1920 data 30. 
1930 data 59, 



2.176, 8, 

2,230,198, 

249, 208, 6, 

96, 56,233, 

105. 0, 133, 

255, 37,255, 

141, 12,192, 

9, 1,174, 

4, 174, 9, 
141, 12,192, 
192, 41, 2, 
245, 32, 71, 
133,252,169, 
192,141, 11, 
169, 32,145, 

63, 204, 5, 

200, 145,251, 
216,200,232, 

0, 189,106, 
32,239,193, 

5, 192,201, 
237, 5,192, 

254, 9,128, 
251,173, 3, 
232,224, 80, 

64,145,251, 
216,200,202, 
174, 10,192, 

24,109, 11, 
133,254,238, 

201, 3, 144, 
0,141, 11, 

96, 65, 66, 

72, 73, 74, 

80, 81, 82, 

87, 88, 89, 

52, 53, 54, 

32, 33, 34, 

40, 41, 44, 

61, 62, 64, 

29, 148, 20, 
249,250,251, 

47, 32, 67, 

78, 32, 67, 

84, 32, 73, 

76, 32, 72, 

82, 32, 32, 

32, 32, 82, 

80, 32, 83, 

255, 32, 67, 
255, 32, 67, 
255, 32, 32, 

32, 79, 70, 

32, 76, 79, 

120,160, 10, 

26, 29, 33, 

38, 41, 62, 

31, 9, 23, 

8, 11, 16, 



189, 26,194 

32,101,193 
169,127, 141 
250, 74,170 
255,189, 7 
157, 7.192 
174, 7.192 
8,192,240 
192,240, 2 

96,162, 2 
157, 7. 192 
193, 96, 173 
0,133,251 
192,162, 
251,189, 26 
192, 208, 2 
173, 3,192 
224, 60, 144 
194,201,255 

41, 63,133 
120,144, 15 
201, 3,176 
133,254, 165 
192,153, 

48,204, 162 
173, 3,192 
208,242, 96 
189, 7, 192 
1 92, 1 70, 1 89 

11, 192, 173 

8,238, 10 
192,104,170 
67, 68, 69 
76, 
32, 
48, 
56, 
36, 
63, 



77 

84 
49 
57 
37 
58 



75, 
83, 
90, 
55, 
35, 
46, 

94, 32,145 

19,147, 43 
252,253,254 

85, 80, 32 

76, 70, 32 

78, 83, 32 

79, 77, 32 
43, 32, 32 
84, 78, 32 
72, 70, 58 
84, 76, 58 
79, 77, 58 
42, 32, 32 
70, 32, 79 
75, 32, 
28, 20, 18 
34, 37, 42 
17, 13, 60 
25, 12, 35 
19, 24, 27 



153 

96 

13 

169 

192 

169 

240 

2 

9 

189 

202 

136 

141 

160 

194 

9 

153 

225 

208 

254 

152 

6 

254 

216 

40 

153 

138 

10 

186 

11 

192 

165 
70 
78 
85 
50 
91 
38 
59 
17 
45 
255 
67 
67 
68 
67 
45 
83 
255 
255 
255 
47 
78 
40 
14 
36 
22 
56 
32 



Screen board PAL Source Code 



FD 


100sys700 






DG 


110; "screenboard" 


NF 


1 20 , loystick-contro led on-screen 


FJ 


130; keyboard 




CA 


140; 






GD 


1 50 ;original program by david tomblin 


BK 


1 60 ;this versfon jane6 -cz 


AC 


170; 






NC 


180; 


from 


1 


MJ 


190. " The Transaclor " 


OD 


200; 






IE 


210; 






EE 


220 Opt 00 






HM 


230 ■ = ScOOO 




GG 


240, 






BC 


250 cbrout 


Z^ 


Sffd2 


CG 


260 pfol 


= 


StffO 


WL 


270 screen 


^ 


$1b 


NM 


280 ]oy mask 


= 


$fd 


KE 


290 temp 


^± 


$le 


DA 


300 temp2 


— 


$ff 


PO 


310xadcf 


= 


$8b 


BE 


320 joy 


= 


56320 


AM 


330; 






JG 


340 


jmp 


start 


EN 


350, 






JO 


360 colour 


byte 14 ; screen board colour 


FL 


370 sindex 


byteO ;screen index 


OP i 


360 fvschar 


byteO 


EA 


390 movllg 


. byte 


BN 


400 keyflags 


1 '^ 


« 


DJ 


410 


byteO ; shift oH/on/lock 


KN 


420 


byte ;ctrl oft/on/ ock 


NF 


430 


. byte jcommdr off/on/lock 


JP 


440 (ogcnt 


■ byleO 


JF 


450 log2 


byteO 


MO 


460 tfagim 


byteO 


DD 


470 sloptlg 


■byteO 


CD 


480olkvec 


.word 


■ N 


490 olstop 


.word 


, KG 


500; 






EG 


510 start 


m 


* 


BK 


520 


sei 




BO 


530 


Ida 


#<irqrtn ;irq vector 


HN 


540 


sta 


$0314 


PF 


■ 550 


Ida 


#>irqrln 


MO 


560 


sta 


$03 15 


JJ 


570 .save keyboard vector 


MO 


580 


Ida 


$028f 


PN 


590 


sta 


oikvec 


GO 


600 


da 


$0290 


FL 


610 


sta 


oikvec + 1 


PA 


620 .change ihe slop vector 


LP 


630 


da 


$0328 


NL 


640 


sta 


of stop 


AB 


650 


da 


$0329 


KK 


660 


sta 


olslop + 1 


FL 


670 


da 


#<newstop 


LG 


680 


sta 


$0328 


FM 


690 


da 


#>newstop 


AE 


700 


std 


S0329 


EF 


710 


cli 




ML 


720 


rts 




AF 


730; 






KF 


740; 






LJ 


750 newkbd 


^ 


* ;new keyboard setup rtn 


BK 


760 


Ida 


f agjm ,shift/c=yctri 


BO 


770 


sta 


653 


KO 


780 


jmp 


(oikvec) 


Ml 


790; 






GJ 


800; 






CJ 


810 newstop 


1 =Z 


t 


IL 


820 


Ida 


stopf g 


BH 


830 


beq 


nostop 


HB 


840 


sia 


$91 


ND 


850 


Ida 


#0 



TtMltansoctor 



SS 
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OB 


860 


sTa sTopf g 




ME 


1640 stornew = ♦ 






JD 


870 noslop 


= « 




01 


1650 sta sindex 






OD 


880 


jmp (olsfOp) 




FO 


1660 sta rvschar 






AP 


890; 






OA 


1670 cmp #120 






KP 


900, 






AL 


1680 bcc nostor 






CL 


OlOirqrln 


= t 




CM 


1690 and #%nilllOO 




ON 


920 


jsr drawscrn 


;draw screen board 


BC 


1700 sta rvschar 


, ast 2 rows in 4s 




DC 


930 


■ 
sec 




BJ 


1710 nostor = ■ 






FD 


940 


jsr plol 


; check cursor pos 


EK 


1 720 rts 






IE 


950 


cpx #6 


iseerf ii'sinscrnbrd 


ID 


1730; 






MA 


960 


bcs crsok 


,no it isn't 


CE 


1740; 






OC 


970 yes ilis 


, move cursor down 




OG 


1750 keypush = - 


.enter key 




HC 


980 


Idx fle 




OL 


1760 Ida sindex 






EF 


990 


cfc 




LM 


1770 cmp #120 


; " top 3 rows? 




CO 


1000 


fsr p ol 




JP 


1780 bcs kpsi 


,no 




FG 


lOlOcrsok 


= • 




HM 


1 790 sr a 


,yes, ust divide by 2 




KE 


1020 


isr scinove 


,scrnbd cursor move 


PG 


1800 mp kps2 






PC 


1030 


imp $ea31 




NH 


1810 kpsi 






MP 


1040 


rts 




DP 


1S20,inbot1om3rows 






AJ 


1050; 






HK 


1 830 sec 






KJ 


1060; 






D\ 


1340 sbc #120 






IC 


1070 scmove = • 


;move sc cursor row. col 


EF 


1 850 sr a 






DJ 


1080 


da joy 




OF 


1860 isr d 






GA 


T090 


and ff31 




EM 


1870 cic 






HA 


1100 


eor #31 




EL 


1880 adc #kfen 






LO 


T110 


5 la joymask 




OM 


1890kps2 = 4. 






LA 


1120 


bne scmO 


, slick moved 


CO 


1900; 






FF 


1130 


da #0 




BE 


1910 tax 




1 


JP 


1140 


sta movffg 




BA 


1920 da keys,!< 


.getkeyffomtabfe 


1 


AA 


1150 


jmp nostor 




OD 


1930 cmp #249 






DM 


1 1 60 scmO 


= k 




FO 


1 940 bcs specia 


; special character 




AJ 


1170 


Ida movfig 


;moved as! time 


CD 1 


1950 normc = • 


.norma character 




FO 


1180 


bne nosior 




FI 1 


1960 cpx #37 


,check, alphanumencs 




DJ 


1190 


Ida ft1 




fG 


1970 bcs kbul 


,no, usekbd buffer 




FD 


1200 


sta movf[g 




NF 

1 


1 980 ,ves, use custom keyboard trap 




Ml 


210 


Ida #16 


;fire bullon bft 


PK 


1990 da keycodes,x 


get key code 


1 


CG 


1220 


bit joymask 




El 


2000 sta 203 


ast key 


1 


LD 


1230 


t)f\e keypush 


;enler key 


DM 


2010 Jsr newkbd 


print the character 




PC 


1240 


Ida joymask 




AA 


2020 ]sr kflitog 


kill shft/clr ^comm 




CD 


1250 


and #1 


: check up 


KN 


2030 rts 






DE 


1260 


beq semi 


inotup, check down 


OG 


2040; 






K 


270 


fdx #-40 


;up, subtract 40 


AG ■ 


2050 kbul 






MD 


1280 scmT 


= ■ 




KF , 


2060 dy 198 


;# chars in buffer 




BG 


1290 


Ida joymask 




LE 


2070 cpy 649 


;max buffer size 




EC 


300 


and #2 


; check down 


NE 


2080 bcs kbuf1 


;buftertull 




CB 


1310 


beq scm2 


;noidown, check etf 


LK 


2090 ida keys.x 


;get key from tabe 




AD i 


1320 


dx #40 


,down, add 40 


FJ 


2100 sta 631,y 


,pul in kbd buffer 




PG 


1330 scm2 


= • 




AC 


2110 inc 198 


; mere men I buf pointer 




DJ 


1340 


da joymask 




GG 


2120kbul1 






JE 


1350 


and #4 


;check eff 


KE 


2130 jsr kiltog 






IG ■ 


1360 


beq scmS 


;noMefl, check right 


E 


2140 rls 






ID 


1370 


Ida sindex 




MN 


2150; 






MO 


1380 


cmp #120 




GO 


2160; 






MF 


1390 


bcc sub2 


: subtract 2 lor lop rows 


AJ 


2i70specia 


; handle spec 1 a chars 


1 


AM 


1400 


Idx #-4 


isubtract 4 for bottom 2 


BO 


2180 cmp #249 


;slop key 


1 


JM 


1410 


jmp £cm3 




LK 


2190 bne spl 






DN 


420 sub2 


= • 




IC 

1 


2200 Ida #$7f 






FK 


1430 


idx #-2 


;lefl, subtract 2 


EG 


2210 Sta siopfg 






ON 


1440 5cni3 


^ • 




U 


2220 rls 






BA 


1450 


Ida loymask 




MC 


2230; 






OM 


1460 


and #8 


, check nght 


PB 


2240 spl 1 






NF 


1470 


beq scm4 


;not right 


LE 


2250 sec 






GK 


1480 


da sindex 




FA 


2260 sbc #250 


,musl be shift/ctr I/com m 




KF 


1490 


cmp #120 




IP 


2270 sr a 






CJ 


1500 


bcc add2 




DL 


2280 tax 






FD 


1510 


dx #4 




PN 


2290 da #1 






LD 


1520 


jmp scm4 




JN 


2300 adc #0 




1 


OP 


1530adci2 


= * 




BM 


2310 Sta Iemp2 


;1 ifcsel, 2rfclr 




PE 


1540 


dx itZ 




LD 


2320 da keyfags.x 






E 


1550; 






At 


2330 eor temp2 


; switch on/off or 




^F 


T560sciTf4 


= • 




Kl 


2340 and femp2 


; lok/off toggle 




KN 


T570 


Six xadd 




HJ 


2350 sta keyflags.x 






KA 


1580 


da sindex 




OK 


2360, 






MK 


1590 


cc 




1 

MH 


2370 makimag = * 


;set up key image 




AF 


1600 


adc xadd 




HD 


2380 da #0 






FD 


1610 


bpl stornew 


.keepsb cursor 


MJ 


2390 sta f agim 






IN 


1620 


cmp #200 




LA 


2400 Idx keyflags 






IE 


1630 


bcs nostor 


;in bounds 


IH 1 


2410 beq nkl 





Th»Thvuoctor 
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EF 


2420 


ora #T 




NM 


3200 sta $d800,y 




JM 


2430 nk1 


= * 




KG 


3210 iny 




PD 


2440 


Idx keytagsH- 1 




AH 


3220 inx 




DK 


2450 


beq nk2 




LO 


3230 cpx #xklen ;# of chars 




PH 


2460 


ora #4 




FL 


3240 bmi dr2 




FP 


2470 nk2 


= ■ 




C 


3250; 




JG 


2480 


Idx keyfags + 2 




HO 


3260 ; under line keyboard 




OM 


2490 


beq nk3 




KD 


3270 Idx ^40 ;prini40 chars 




FK 


2500 


ora #2 




EC 


3280 dr3 = - 




BC 


2510 nk3 


= ■ 




AC 


3290 Ida #64 lunderline char 




OB 


2520 


sla tiag<m 




EK 


3300 sla (screen), y 




OM 


2530 


ns 




AF 


3310 Ida colour 




CG 


2540, 






FE 


3320 Sla $d800,y 




MG 


2550, 






CO 


3330 my 




EO 


2560 ki tog 


^ * 


;kil 1 -time key Hags 


DM 


3340 dex 




FF 


2570 


Idx #2 




JB 


3350 boe dr3 




OE 


2580 kill 


^ - 




MA 


3360 rls 




JE 


2590 


Ida keyflags.x 




AK 


3370: 




ML 


2600 


and #2 




KK 


3380; 




LJ 


2610 


Sla key flag E,x 




K 


3390drawtog = 




DP 


2620 


dex 




MP 


3400 ;pnnt ofl, on, or ock message 




PG 


2630 


bpl kiH 




GA 


3410 \xa 




NJ 


2640 


jsr makimag 




IN 


3420 pha 




GE 


2650 


rts 




K 


3430 Idx togcnt :0-Shft, 1 =ctrl,2 = com 




KN 


2660; 






JB 


3440 Ida keyflags,x ,off. on, or ok 




EO 


2670; 






GG 


3450 asl a 




iC 


2680 drawsc 


rn = ■ 


; draw screen board 


FM 


3460 asi a ;x4 to pomt to togtext 




FK 


2690 


da 648 


; screen page 


EA 


3470 cic 




IL 


2700 


sla screen + 1 




KL 


3480 adc log 2 




BJ 


2710 


Ida #0 




NG 


3490 lax 




KA 


2720 


Sta screen 




KD 


3500 Ida log lex I, X 




HN 


2730 


sta togcnt 




BG 


3510 sla lemp 




CC 


2740 


sta log2 




AB 


3520 inc log 2 




FA 


2750 


Idx #0 




KP 


3530 Ida tog 2 




DB 


2760 


Idy #0 




KA 


3540 cmp *3 




OB 


2770 dr1 


= « 




NP 


3550 bcc igl 




DG 


2780 


fda tf22 




HP 


3560 J no togcnt 




GK 


2790 


sla (screen), y 




NN 


3570 Ida #0 




AG 


2800 


da keys,x 




KG 


3580 sla log 2 




MM 


2810 


and #63 




NL 


3590 tgl = - 




NH 


2820 


cpy rvschar 


, check tor reuers chr 


J 


3600 pi a 




Ml 


2830 


bne norvs 




FO 


3610 tax 




IL 


2840 


ora #128 


.seihighbuiorvrs 


BJ 


3620 tda Temp 




BO 


2850 norvs 


^ ■ 




KB 


3630 rls 




MA 


2860 


iny 




OK 


3640, 




GPi 


2870 


sta (screen), y 




IL 


3650; 


i 
1 


ck' 


2880 


Ida colour 




AN 


3660 keys =■ • 




HJ 


2890 


sta $d800,y 




KG 


3670 asc 'abcdefghijkmnopqrs ' 


1 


ED 


2900 


rny 




MH 


3680.asc "Iuvwxyz0l23456789[j " 


1 


KD 


2910 


inx 




BG 


3690 byte 33,34 




AE 


2920 


cpx #klen 




GB 


3700 asc "#$°M(),.?:;< = >@t ' 




GE 


2930 


bcc drl 




LB 


3710klen = --keys 


1 


CP 


2940, 






PP 


3720 ctr chrs - 




KP 


2950 iprint botiom Two kbd rows 




CD 


3730 byte 145,17,157,29,148,20,19,147.43,46 




G£ 


2960 


Idx 3^0 


.character counter 


FE 


3740 byfe 13,249,250,251,252,253.254,255 




KG 


2970 dr2 


= > 




KM 


3750 .asc ■■-/" 




AO 


2980 


Ida xkeys,^ 




GC 


3760; 




IJ 


2990 


cmp #255 


; toggles 


EC 


3770 xkeys = - 




FF 


3000 


bne nolog 




HJ 


3780 .asc " cup cdn cl( crt ms del hom cir + - " 




AF 


3010 


jsr drawiog 


,prinloff,on,or ok 


LJ 


3790 .asc " rin stp sht.TinTi ct itjin com min • 1 ' 




PC 


3020 notog 


=. - 




MA' 


3800xklen = --xkeys 




IK 


3030 


and #63 




IF ! 


3810; 


] 


LI 


3040 


Sla temp 




KF 


3820loglexi asc "off on lok ' 




D 


3050 


Ida rvschar 


.check high ightchr 


MG 


3830; 




MH 


3060 


cmp ft^20 




GN 


3840 x40 .byte 0,40.80, 1 20, 1 60 




EG 


3070 


bcc norvs2 


;none to highlighl 


Al 


3850; 




PL 


3080 


lya 




JF 


j 38e0keycode£= " 




II 


3090 


dc 




LG 


■ 3870 byte 10,28.20,18.14.21.26,29,33,34 




JD 


3100 


sbc Tvschar ; 


.highlight 


ML 


3880 byte 37,42,36.39,38,41.62,17,13,60.22,30,31.9 




JN 
BG 


3110 
3120 


cmp #3 

bcs norvs2 ; 


; three characters 
, li option 


Nl 


3890. byte 23,25,12,35,56,59,6,1 1,16,19,24,27,32 








LB 


3130 


Ida lemp 


; IS se ected 


Note: The sets of three tt symbols in line 3790 are obtained by lyping 




AD 


3140 


ora #128 




pi's, however. Ihey will appear as checkerboards' in lower case mode. 




JP 


3150 


sra Temp 








JN 


3T 60 norvs2 


^ • 








PM 


3170 


Ida lemp 








MC 


3180 


sla (screen), y 






IN 3T90 


Ida CO our 
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Crystal Ball 

For The C64 or VIC 20 



Ian Adam 
Vancouver, 
British Columbia 




This lime of year is one when many sports leagues are very 
active, and will ail loo soon come lo Iheir seasons' conclusions. 
Foolball leads to play offs and championship games, followed 
by hockey and basketball. These activities quickly become 
'media events', with a greal deal of coverage, fan interest, office 
pools, and so on. 

WeVe all seen many computer games based on sports — Ihose 
arcade-like games may be realistic simulations of actual sports, 
or they may be only loosely based on the real thing. I have also 
seen programs before that will keep track of players' or teams' 
performance, even tell you which player deserves the game 
bail on the basis of actual performance. Here's a computer 
sports application that's very different, however, and it's one 



thai I've never seen described before. This program makes the 
leap from the game ball to Ihe crystal ball - it will actually 
"predicl" Ihe performance of a number of athletes over a series 
of future games, Basedonacompilalionof past player perform- 
ance, team records, and your prediction of team success, this 
method is ideally suited to estimating player poinls over the 
second half of the season, or to calculating expected point 
production during play offs. 



Applications 

The Crystal Ball was originally developed lor the hockey piay 
offs, and has been very successful at that application. For our 



fliM iTGmoctof 



56 



May 19S6: Volume 6, toue06 



southern readers, these play offs involve sixteen leams playing 
up lo 89 games in order to decide the winner of the historic 
Stanley Cup. Predicting the winner of the Cup can be interest- 
ing, deciding whether the New York (slanders or Edmonton 
Oilers will continue whipping the other teams. However, a 
popular challenge is for a group ol fans to gel together and try to 
predict the relative performance of individuals among the 320 
players in the play oiis. Since the point production of each 
player may depend on his abilities, the number of games his 
team stays in the play offs, and the calibre of the opposition, 
this prediction can be a complex task. This program is ideal for 
that purpose- 
However, it can be equally well applied to a variety of other 
situations and sports. Most team sports keep track of player 
production, whether it is hits in baseball, yards gained in 
football, or dollar value of endorsements. TV networks employ 
armies of statistical experts to compile and convey this informa- 
tion to the fans. Predicting these statistics can be both enjoy- 
able and challenging; while this program won't do the whole 
job, it can be a very valuable assistant. 

The program itself is straightforward. Much of its length is 
taken up by making it \iser-friendly', and your effort in typing 
it in will be repaid many times when using it. it's all in BASIC, 
so there's nothing too complicated or problematic. After indica- 
ting the number of teams and players, RUN the program. All 
functions are controlled by the main menu. Once you have 
entered the necessary data, instruct the program to proceed lo 
calculate expected performance, and prepare lists of players 
ranked by performance and alphabetically. The results are 
most useful when directed to your printer 

Because of its ample memory, the 64 is ideal for this task. The 
program is presently configured lor analysis of up to 200 
players^ performance, but could easily be increased to 500 or 
more. A disk drive makes the task of storing and retrieving data 
much faster. For the VIC 20, at least 3K of expansion memory 
would be needed to run the full program, but 8K or more would 
allow the analysis of more meaningful numbers of players. A 
stripped-down version is also supplied for the minimum- 
configuration ViC, modified to use a tape drive Instead of disk. 
With the small number of players you can analyze without 
memory expansion, the speed of tape storage is not a problem. 



Using The Program 

So that you can understand the capabilities of the program 
fully, let^s look at the roles of the menu items and subsections: 

1. Parameters, Before starting, set the parameters in lines 
1220 and 1 230 to suit. NT is the exact number of teams you will 
be examining. M is the maximum number of players to be 
analyzed and is limited solely by available computer memory. 



2. Main Menu, When you RUN the program, you will be 
presented with the menu. Selections can be made by pressing 
either a number key or the corresponding function key. If you 
want to load an existing file from disk or tape, press selection 3 
and give the file name. Otherwise, press I and start with team 
data. Choosing any of the other selections at this point would 
just generate some garbage. 

3. Team dala. For each team, you must specify: 

• a name; 

• the number of games of historical data available; 

• the team performance over those games (expressed as 
game points, 2 for a victory, 1 for a tie, for a loss); 

• the number of wins and losses expected over the forecast 
period (the rest of the season, the play offs, or whatever). 

The program will prompt for as many teams as you named in 
line 1230- At any time, you can press RETURN to the name 
prompt and quit, but you CANNOT then go back and add more 
teams. 

When you have finished entering team data, the computer 
displays a list of the teams so you can verify the data you 
entered. Any errors at this stage will be carried forward, so 
check the data carefully. The computer also adds up total 
expected wins and losses for all teams. Normally, since each 
game has a winner and loser, the totals should be the same. If 
they are different, you may wish to go back and adjust some of 
your projections. When all is ok, press N for 'no changes', to 
return to the main menu. 

In this segment, the program also calculates a performance 
factor for each team, based on historic and projected wins and 
iosses (line 1 640). A basic assumption is that players will score 
more points on a team that is winning. A winning score ratio of 
5 to 3 is used, which is typical of most sports such as football, 
hockey, or baseball; for example, a football score might be 28 to 
17. One exception to this ratio would be basketball, in which 
the point spread between winners and losers is typically 10% 
or less. 

4, Player Data. From the main menu, press 2 to enter player 
data. For each player, you must enter: 

• his/her name; 

• a team. You may specify a team by its full name, any 
abbreviation, or its number in the list; 

• the number of games for which historical data is available; 

• point production during those games. You can use any 
measure of production, goals, baskets, yards, whatever, as 
long as it is consistent from one player to another. 

You can quit at any time by pressing RETURN when prompted 
for the name. You will then see a list of all players and their 
data, one screen full at a time. You will then be asked if there 
are any changes to be made. If so, press Y, specify the player by 
number on the list, and enter the revised data as prompted. 
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Simply press RETURN for any ilem that does not need to be 
changed. 

If you're getting tired of typing, press N for 'no changes', and 
return to the main menu. At this point, it is a good idea to save 
Ihe data to disk or tape. You can come back to this function 
later to add more players, and the program will remind you 
where you left off. 

5. Calculate and sort Don't select this option until you have 
entered the team and player data; also, if you subsequently 
change any of the data, you will have to come back and repeat 
this function. This menu selection includes three basic steps: 

• each player's projected performance is calculated, based 
on all the data entered for the player and the learn. The 
results are displayed as calculated. 

• the players are ranked in order of maximum production. 

• as a cross-index, an alphabetical listing of players and 
rankings is also produced. 

The two rankings are performed by a shell sort in BASIC; 
although this is very efficient, the sort times do increase with 
the number of players. If you have many players, lake a coffee 
break. When the two listings are ready, you have the option of 
viewing or bypassing each one; they go by fast, so use the 
CONTROL or STOP key if you want to peruse them on the 
screen. 

If any player has fewer than 25 games of historic data, this 
lends to cast doubt on the statistical validity of the projection 
because of the small sample size. The program flags this 
situation beside the player's listing. In football, however, the 
shorter season would dictate a different threshold, say 10 
games. M^ke the necessary adjustment in line 2430 of the 
program. 

6. Show resulU. Menu selection 6 allows you to review the 
rankings without waiting through the calculate and sort steps. 
Needless to say, the calculating and sorting must have been 
done previously, or you will gel garbage. 

7. Print out. Menu selection 7 will send all of the team data 
and player rankings to your printer. This is the only practical 
way to review extensive performance listings. A Commodore 
printer is supported, or any other printer that responds to 
device *4 on the serial port. 

8. Load or Save. Menu selections 3 and 4 provide access to a 
disk or tape file. All team and player data are saved, but the 
predictions and rankings are not. After reloading the file using 
selection 3, you can make any necessary changes to the data, 
then proceed to calculate, sort, and print the results. 



Modifications 

The main program listing runs as-is in the Commodore 64, and 
would require minimal modification for PEl/CbM's. It will also 
run in a VIC with at least 3K of expansion memory if you delete 
Ihe REMs, but 8K would be preferable. For the VIC. make the 
changes to lines 1270 and 2900 as shown at the end of the 
program. The version for the minimum-configuration VIC 
deletes a lot of the frills such as sound, tidy columns, abbrevia- 
tions, and function keys. It also has a greatly- reduced capacity 
for storing team and player data, and assumes tape instead of 
disk access. 

Whatever your sport, I hope you find this program to be a 
useful and Interesting tool, is the Crystal Ball perfect? Of course 
not __ there are many intangible factors that can affect a 
human athlete's performance. One injury can eradicate the 
most carefully planned prediction. I'm pleased to report, how- 
ever, that with our input and the Crystal Ball's help, we did win 
first place in the office pool. May it work as well for you! 



Crystal Ball For The C64 and Expanded Vic-20 



FN 
hAD 
HO 
GA 

EH 
BK 
DA 
AC 
NK 
IP 
FE 

CC 
LK 
AE 
GG 
DP 
KG 

ML 

BG 
KB 
GH 
OC 
Afv) 
GE 
ME 
KL 
FF 
NJ 

CD 
EN 



1 000 rem save ' 0;crystal ball 64 " ,8 
1010 rem •* the crystal ball for 64 and expanded vie 
T 020 rem "- written by. lanadam, Vancouver, be. 
I030cs$ = chf$(147):yl£ = chr$|30): pk$ = chr$(28) 

bkS-chr$(l44):bn$ = chr$(151) 
1040 print cs$: goto 1220 
1 050 b = 1 ; rem numeric descending sort 
1O60b = 2*b: if b<np then 1060 
T070b = b/2:if b<1 then return 
10a0fori = 1 tonp-b: c = i 

1 090 d = c + b: if pl(ix%(c)) = >pl((X%(d)) then 1110 
1 1 00 a = ix%(c): ix%(c) = i)t%{d): ix%(ci) = a. c = c-b: 

ifcX then 1090 
1110 next: goto 1070 
1 1 20 b = 1 . rem alphabetic ascending sort 
1 1 30 b = 2*b: if b<np then 1 1 30 
1l40b = b/2 if b<l then return 
1150fori = 1 lonp-b:c = i 
1 1 60 d = c -f b. if pl$(ix%(al%(c)))< = pl$(ixo/o(al%(d))) 

then 1180 
1 1 70 a = al%(c): ai%(c) = 3\%{6) al%(d) = a: c = c-b; 

if c>. then 1160 

1160 next: goto 1140 

1190: 

1200 : start program 

1210: 

1 220 dim c,d,i,b,am^ 200; rem max # players 

1230 rft^l6: rem # learns 

1240: 

1250 dim ixo/o(m),al%(m),pl$(m).pl(m) 

1260 dim pl%(m,3),lm$(nt),tm%(nt,3),lm(nt),p$(m) 

1 270 w = 54276; poke w-3,70. poke w- 1 ,2: 

poke w + 2, 246; poke w + 20,1 5 poke 53281,1 
1280 for 1 = 1 tom;ix%(t) = i:a|o/o(i) = i; next 
1290fori = 1 lonl:tm$(i]= ■ ^ : next 
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DF 
MJ 

NJ 
DF 

GH 
JM 
AJ 

NF 

EB 

NM 

FP 

Al 

IM 

HL 

CF 

HB 

CM 

MD 

LC 

AF 

IB 

PL 
EJ 

HJ 

FO 

HC 

[J 

AF 
JC 

HH 
KP 

GC 

BD 

01 

AP 

PJ 

EA 

ME 

MN 

KC 

GJ 

HA 

KO 

00 

GF 

JP 
HE 

IP 
LC 
CJ 



T300 

1310 rem menu 
1320: 

1330 print csS 

1340 prini bk$ " [5 spcsjthe crystal ball " 
1ab{45);pkS' = = = = . = = = = = = = 



bkS 



1. enter team data' 
2 enter player data" 

3. load data from disk" 

4. save data to disk " 

5. caiculate and sort" 

6. show results " 

7. printout results" 
8 terminate" 



1350 print: print 

1360 print print 

1370 pnni print 

1380 print, pnnt 

1 390 print: pnnt 

1400 print: pnnt 

1410 print pnnt 

1420 print, print: print 

1430 print 

1440 gosub 2890 c = val(r$) + 1 

1450 ff asc(r$)>1 32 then c = 2-(a5C(r$)-132) + 

7*(asc(r$)>136) 
1460 one gosub 2820,1510,1940,1690,2220,2390,2470, 

2600,3820 
1470 goto 1330 
1480: 

1 490 . enter team data 
1500 
1510 print cs$. print "[7£pc£]team data" iftm%(nt,1) 

then 1570 
1520forl=l tont:a$= '" 
1530 print, print: input "enter team name^aS 
1540go£ub2900. ifa$- ' " then 1570 
1 550 tm$(l) = Ie1t$(a$ + " [9 spgs] Ml) 
1560 gosub 1620 next 
1570 gosub 3020 
1580 print: pnnt "change any vafues (y/n)?": 

gosub 2690 i1 r$ = " n " then return 
1590 input "which team ",a$. gosub 2940. iff then 1600 
1600 gosub 1620. goto 1570 
1610. get details 
1620 print: input "games played, team pis "id, 

lm%(t,l):gosub2900 
1630 pnnt, input "expected wins, losses ^tm%(t, 2). 

tm%(t,3): gosub 2900 
1640im{t) = d'(3-lm0/o(t,3) + 5ttm%(t,2})/(3*d + tm%(l,1)] 
1650 return 
1660: 

1670: load disk data 
1680: 

1690 print csS,yl$: print "[4 spcsjioad data from disk" 
1700ifnp = 0then 1730 

1710 print, print: print pk$" sure you want to lose this data?" 
1 720 gosub 2890: if r$<> " y " then return 
1 730 pnnt: print print pk$ " load which file? " ; 
1 740 input d1$. gosub 2900 
1750r$="0:"+df$+ ",s,r" 
1760 open 15,8,15, N": open 8,8,2,r$. gosub 3210: 

inpul#a,aS 
1770itlett$(a$,7)= " crystal" then 1800 
1 780 print cs$;pk$: pnnt " incompatible tile " bk$ - " dt$, 

print a$ 
1 790 gosub 2890. close 8. close 1 5 return 
1800input#8,a,np 
1 81 it np>m or a>nt then 3270 



HC 

lA 

EP 

PL 

FB 

CB 

fvtP 

II 

KO 

EF 

OP 

PM 

DB 

IC 

FE 

JM 

PF 

PH 

CG 

GC 



NJ 
KG 
FB 
CL 
KB 
KO 

PK 
CA 
NP 

EH 

CG 

ON 
MB 

MB 

01 

CA 

PJ 

GB 

FJ 

LP 

AL 

LL 

JH 

EC 

KJ 

ON 

GL 

PJ 

LO 

EN 

OL 

KE 

MK 

PN 



1 820 nt = a: for i = 1 to nt: input#8,tm$(i),lm(i) 

1 830 lm$(i) = lett$(tm$(i) +"[11 spcs] Ml) 

1840forj = 1 to 3 input#8,tm%(f,j) 

1850 next: next 

1660 for i=l lonp: input#e,pl$(i) 

1 870 for j = 1 to 3: Jnpul#8,pl%(j,j) 

1880 next, next 

1890 close 8. gosub 3210: close 15 

1900 return 

1910 

1920 . enter player data 

1930: 

1940 print cs$"|4 spcs]enter player dala" . print 

1950if np = m then20eo 

1960 if np then print "last player: >l$(np).tm$(pl%(np,l)) 

1970for i = np + 1 torn 

1 980 print: print " player, team name or #, games, points " 

1990r$="".a$="':prjnti; 

2000 input r$,a$,pl%{i,2),pl%(i,3): gosub 2900 

2010jf r$= "" then2060 

2020 ff pl%(i,2) = then print pk$ " i can't handle 

that"bk$"fr^goto1980 
2030 pl${f) = left$(r$ + " [8 spcs] "JO) 
2040 gosub 2940. it f then 1 980 
2050pl%(i,1) = t:np = np+1: next 
2060 gosub 31 20 

2070 print print - change any data (y/n)? " . print 
2080gosub2890: if r$=:: "n" then return 
2090 1 = pnnt input " player # " ,i. gosub 2900: 

if i = then 2060 
2100 print pl$0)tm$(pl%(i,1))pl%(i,2),pl%(i, 3) 
2110 print: print: print " change data or press return ' print 
2120prfntpl$(i), input " or ";pl$(i) gosub 2900 
2l30a$ = tm$|pl%(Ll)): pnnta$;' input "or",a$ 

: gosub 2900 

2140 print pl%(i, 2);: input "games, or' ;pl%(i,2). gosub 2900 
2150 print pl%(i, 3);: input "points, or" ,pl%(j, 3): gosub 2900 
2 1 60 pl$(i) = left$(pl$(i) -f " [8 spcs] MO}, gosub 2940 

if f then 2090 
2170pl%(i,1) = t 
2180 print: print pl$(i)tm$(pl%(i,l))p|o/o(i,2)pl%(i,3): 

goto 2090 
2190: 

2200. save data to disk 
2210; 

2220 print cs$,yl$. print " [4 spcs]save data to disk " 
2230 print, print: pnnt "save under what name?" : input df$ 
2240df$= '0:" +df$+ ",s,w 
2250 open 15.8,15/ f\ open 8, 8.2.df$ 
2260 print#8, " crystal " . gosub 321 
2270 pnnt#8,nt: pnnt#8.np 
2280 for I = 1 to nt. print#8,tm$(i). print#8,tm(i) 
2290fori=1 to3. print#8,tm%tf,]) 
2300 next, next 

2310fori = l tonp print#8,pl$(i) 
2320 for i=l to 3. print#8,pl%0,j) 
2330 next: next 

2340close8 gosub 3210: close 15 
2350 return 
2360: 
2370 : calculate & sort results 
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AM 


2380 


(VIA 


2820 print cs$: print " sure you want to fose the data? " : print 




JJ 


2390 i1np = 0lhen print "enter data first! ". gosub 2390. 


MO, 


2830 gosub 2890 ifr$<>-y " thenreturn 






return 


HC 


2840 print " bonne chancel " 




CC 


2400 print: print " ca cu ating " 


CC 


2850 end 




OL 


2410 d = 3 b=10 a = 2:fo^^=l lonp 


AK 


2860: 






p = int(p %(f.d)"b'tm(p|o/o(i, 1 ))/p|o/o((.a)) 


Al 


2870 : keyboard & beep 




AJ 


2420pl(i) = p.a$ = right$(" 2 5pcs ^ +sTrJ(p),4); 


EL , 

1 


2880: 






p$(i) = of1$(a$,3) +" ." + righi$(a$, 1 ) 


EN 1 


2890 poke 1 98,0 wait 198,3 get r$ 




BE 


, 2430 if p%(i,a)<25 then p$(i] = p$(i)+ " '*' + 


MH 


2900 poke w,65; tor tx= 1 to 80. next, poke w,0. return 






! slr$(p%{i,a))+ " games" 


ON 


2910: 




DP 


1 2440pnntj,p$(i)p$(i) next 


BP 


2920 : Identify team 




AO . 2450 prim print, pnnl. print "sorting . ." : gosub 1050' 


GO 


2930. 






gosub 11 20 


CC 


2940 f =^ 0: a = val{a$): if a then if a< = nt then t = a 




8F 


2460 pnnl print " sorted " . print: gosub 2900 




print tmS{l) return 




AN ! 


2470 pnnt " want to see the ranking? " : print: gosub 2890: 


MG 


2950a$ = left$(a$,11) 






ifr$= "n" then2510 


IJ ; 


2960 for t=1 lont. ifa$= eft$(lm$(1),ien(a$)) then 




NO 


2480 pnnl pk$ " rank 3 spcs p ayer[5 spcs team 




print tm$(0. return 






6 spcs production "bk$ print 


DM 


2970 next, print a$;pk$\ . i don't recall that learn/' bk$ 




PF 


2490for 1 = 1 tonp: a = ix%(i) 


1 


2980 gosub 2900: f = 1 : return 




PD 


2500 print itab(7)p $(3)" "tn^J(pl%(a,1))" 2 spcs ' 


CC 


2990: 




1 


!eft$(p$(a),8) next 


MA 


3000 ; dfsp ay team results 




KG 


2510 print, pnnl. print " want lo see the alpha isl?" 


GD! 


3010 




CN 


2520 gosub 2890. if r$= " n "thenreturn 


AE 


3020 print cs$;pk$ ' [3 spcs team 8 spcsjpls 3 spcs 




HL 


2530 pnnt: print spc(7)pk$ " a phabetical list " bk$. print 




wins"." losses "bkS: print 




AC 


2540 ton = 1 tonp a = a%(i)' print a tab(7); 


LH . 


3030 tw = tl = for 1 = 1 to nl print midS(str$(i) + 




ED , 


2550 a = ixO/o(a). print p$(a)" ^tm$(pi%(a,1))' 2 spcs " 




" 2 spcs ■ ,2,3)Tm$(i); 




' 


efl$(p$(a),8)' next 


CG, 


3040 print tm%(i,1),tm%(i,2),lm%(i, 3) 




PA 


2560 gosub 2690. return 


CD ' 


3050 Iw = Iw + tm%(i.2}: tl = tl + tm%{i,3)' next 




OH 


2570. 


PN 


3060 if tw-tl then print pk$ 




Ml 


2580 : printout 


KN 


3070 print print "lota oftw" wins, "t " osses. "bn$ 




CJ 


2590 


EC 


3080 return 




LK , 


2600open4,4:a$ = Chr$(10) 


Gl 


3090: 




LH 


2610prinl#4,a$,aS:chr$(14); 


Gl 


3100: list players 




Gl 


2620prinl#4,"t*, crysta ba *"" ■'chr$(15) 


KJ 


3110: 




LJ 


2630prinl#4,aS;a$:a$,chr$(14)'" 3 spcs learns "chr$( 15) 


MJ 


31201=1 




PA 


2640 print#4,aS " 6 spcs learn 8 spcs wins 4 spcs 
osses ■ a$ 


M 
1 


3130]= 1: printcsS;pk$"[4spcs)player 5 spcs 
team[6 spcs games pts " bk$: pnnt 




CB 


2650 ton =1 lonl.a = lm°/o(i,2) 


ME 


3140pnntmid$(str$(i)+ " 3 spcs \2,4)pl$(i)" " 




BH 


2660pnnt#4,right$(" 2 spcs] " +Str$(i)+ ^[3 5pCS " ,6) 


1 


tmS{pl%(i.1))p%(i,2)p%(i.3); 


1 




tm$(i) " [2 spcs] "a;spc(5-(a<10))tm°/o(i,3) 


EF 


31 50 j = J + 1 1 = i + 1 : if t>np Ihen gosub 2900: return 




CH 


2670 next 


KJ 


3160 ifj<23 then 3140 




i NC 


2680 print#4,a$;chr$(12);chr$(14)'' 3 spcs rankings" 


L£ 


31 70 gosub 2890: goto 3130 






chrS(15) 


AO 


3180: 




FP 


2690 prinl#4,a$ " rank[2 spcs p ayer 6 spcs learn 5 spcs] 


IF 


3190. disk check 






production " a$ 


EP 


3200: 




BD 


2700 1or i = 1 to np: a = ix%(i) 


HF 


32l0input#15,a,b$ 




PO 


2710prin1#4,right$('' 2 spcs " + slr$(i) + " 3 spcs " ,6) 
p!$(a)" 2 spcs "tm$(p%(aj))" 3 spcs " p$(a) 


NE 


3220 if a>1 9 then print a,b$, " error " : close 8: dose 15: 
gosub 2890 goto 1330 




EK 


2720 next 


KL 


3230 return 




MN 


2730 print#4.a$;chrS(12);chr5(14)" 3 spcs alphabetical 


MB 


3240, 






ist"chr$(15) 


MM 


3250 : disk fie size 




HC 


2740 print#4.a$ " rank[2 spcs p ayer 6 spcs team 5 spcs] 


AD 


3260 






production " a$ 


FG 


3270 print " disk fi e " df$ " rs loo big " 




HD 


2750 for i=1 tonp. a = a%(i) 


J 


3280 print " m = " np: print - nt = " a 


i 


DG 


2760print#4,rightS(" 2 spcs " + str$(a)+ " [3 spcs ",6); 


PF 


3290 print "change ines: " 




HO 


2770a = ixO/o(a): print#4,p$(a)" 2 spcs " 


00 


3300cose8. cose 15. list 200-210 






tm$(p%(a,1))'' 3spcs "p$(a) 


CG 


3310: 




AG 


2780 next: cose 4. return 


OH 


3320vic-20: ine1270 w = 36874: poke w + 4,15 




KF 


2790 


IE 


3330 : : ine 2900 poke w,250: for tx = 1 to 80: next: 




G 
OG 


2800:'* end 
2810 




poketXpO: return 
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Crystal Ball For The Un-Expanded Vic-20 



OL 
NP 
HO 
GA 

CB 
IH 

DA 
LH 
NK 
GO 
GL 

CC 

OL 
AE 
GO 
DP 

JO 
FJ 

BG 
FO 

FB 
KM 
1C 
JD 
CH 
FK 
LP 
JF 
FO 

Fl 
DK 

HF 
00 
LF 
AG 

CM 
CC 
NF 
CA 
FG 
KH 
AB 
ON 
OF 

AD 
CJ 

ON 
GJ 
BB 

IE 
PG 
CP 

IB 

LI 



1 000 rem save " O.cryslal baJI vie " ,8 
1010 rem •* the crystal ball for the un-expanded vrc 
1020 rem -■ written by \an adam, Vancouver, b.c. 
I030cs$ = chr$(147). yl$ = chr$(30): pk$ = chr$(28): 

bk$ = chr$|M4): bnS^chrS(151) 
1040goto1190 
T 050 b = 1 

1060b = 2*b. [Ib<npthen 1060 

1070b = b/2. ifb<1 then 1120 

1080tori = 1 tonp-b:c = i 

1 090 d - c + b if p(i%(c]) = >p(i%(d)) then 1110 

11 00 a = i%(c). i%(c] = |0/o(d). |0/o(d) = a: c = c-b: 

jto. then 1090 
11 10 next: goto 1070 
1l20b=1 

1130 b = 2-b; It b<npthen 1130 
1140b = b/2' if b<1 then return 
1 150fori = 1 lonp-b; c = i 

1 1 60 d = c + b Jf p$(f%(a%(c)))< - p$(j%(a%{d))) then 1 1 80 
n70a = a%(c).a%(c) = a%(d) a%{d)^a c = G-b: 

if c>. then 1160 
1160 next goto 1140 
1190m = 12;nt = 4, dimiO/o(m),a%(m).p$(m),p(m), 

p%(m,2),t$(nt),t%(nt,2),t(nl) 
1200 for 1=1 torn i%(i)^i: a%(i) = L next 
121 prim cs$,bk$ " 1 team data ' 
1 220 print " 2 player da;a ' 
1230 print "3 from tape" 
1240 print "4 to tape" 
1250 print "Scale/sort" 
1260 print ^6 print ^ 
1270 print: phnt Vend" 
1280go3ub1940. onval(r$]gosub 1290,1490,1400, 

1660,1750.1840,2050: goto 1210 
1290 If t%{nt,1) then 1330 
1 300 for 1 = 1 to nt a$ = " " ; print; input " name " ;a$: 

if a$= " " then 1330 
1310 l$(t] = lett$(a$ + ■' [5 spcs] ' ,6) 
1320 gosub 1370: next 
1330 gosubl 980 
1340 print print "changes?" . gosub 1940: 

if r$= "n " then return 
1 350 input " team " ;a$: gosub 1 950: it f then 1 360 
1 360 gosub 1 370: goto 1 330 
1370 print: input "games, pts^d,t%{t,1) 
1380 print, input "exp w, IM%(t,2),t%(t,0) 
1 390 t(t) = d*(3-t%(t,0) + 5*t%(t,2))/|3"d + t%(t,1)): return 
1400 print cs$; input "tile";r$ 

1410 open 1,1.0,r$;input#1,a$: if a$= "cr" then 1430 
1420 phnt "badfile-aS: gosub1940 soto1480 
1430input#1,a,np: if np>m or a>ntthen 

print "toobig": goto 1420 
1440nt = a:fori = 1 font input* 1 ,t$(i),t(i) 
1450 for j = 0to2. input#1,T0/o(i,j):next next 
1460 tor i = 1 tonp: input#1,p$(i) 
1470torj = 0To2'inpul#1,p%(i,j):next: next 
1480 closet, return 
1490 if np = mthen 1560 
1500 ton = np+ 1 torn 
1510 pnnt: print "player, team, games, pts" 

1520 r$ = " ; a$ = ■ ' : input r$,a$,p%(i,2),p%(i,0) 
1530ifr$= '■ then 1560 



ND 

FH 
JB 
EH 

CP 
JB 
DH 
CA 
BG 
El 
HG 

OJ 
HK 
NG 
JC 
EM 
DK 
KK 
KA 
OK 
FB 
GA 

JP 
CC 
GO 
DK 
GL 
HN 

LC 
BD 
DL 
BB 

PN 

OE 

Kl 
NO 

BN 

FB 

PF 

OA 

HG 

LI 

BH 

NO 

KN 

fC 

IB 

JG 

MC 

PJ 

CO 

BB 



1 540 p$(i) = left$(r$ + " [4 spcs] " .6) gosub 1 950. 

iffthen 1510 
1 550 p%(i, 1 ) ^ t: np = np + 1 . next 
1560 gosub 2010 
1570 ptinl print: print "changes'^"; gosub 1940' 

it r$= "n " then return 
1 580 i = 0: phnt. input ''pl#\i iri = Olhen 1560 
1590 pnnt p$(i)t$(p%(i.1))po/o(i,2)p%(i,0) 
1600 print p$(i), input" or";p$(i) 
1610a$ = t$(p%(i,1)): print aS, input"or";a$ 
1620 pnntp%(i,2):: input "gms, or";po/o(i,2) 
1630 print p%(i,0);: input " pts, or " ;p%(i,0} 
1 640 p$(i) = fett$(p$(i) + " [5 spcs) " ,6); gosub 1 950 

iff then 1580 
1650 p%(i,1) = t: pnnt p$(i)t$(t)p%(i 2)p%(i,0). goto 1580 
1660 phnL input "tile name^rS 
1670 open 1,1,1,r$ 
1680phnt#1,''cr- 
1690print#1,nt. print#1,np 
1 700 tor J = 1 to nt: print/^l .t$(i): print#1 ,t(i) 
1710 tor 1 = to2 printtf1,t%(i,j):next next 
1720 for i = 1 tonp; print#1,p$(i) 
1 730 for f = to 2: print^l ,po/o(i,j); next: next 
1740 close 1: return 
1750b=10:tori = 1 tonp p(i) = int(p%(i,0)*b^ 

t(p%(i,1))/p%(i,2))/b 
1760 print i;p$(i)p(p). next; pnnt "sorting " gosub 1050 
1770 print: print; pnnt " ready ^ print: gosub 1940 
1780fori = 1 tonp;a = i%(i) 

1790 print chr$(157);i;p$(a)" M$(p%(a,1)]p(a). next 
1800 print, print "abc'^": print: gosub 1940 
1810 for i = 1 tonp:a = a%(i]. pnntchr$(157);a; 
1 820 a = i%(al: pnnt p$(al " " \${p%(a. 1 ))p(a); next 
1830 gosub 1940 return 
1 840 open 4,4 a$ = chr$(1 0) 
1 850 pnnt#4,a$,a$;spc(6) " Ieam[3 spcsjwins 

[2 spcs]losses"a$ 
1 860 for ( = 1 to nl. print#4,i ■ [3 spcs] " t$(i) " [2 spcs] " 

l%(j,2)"|3spcs]"to/o(i,0)' next 
1870 print#4,a$;aS " rankI2 spcs]player[2 spcsjleam 

[2spcslprod''a$ 
1860 for i = 1 tonp:a = i%(i) 
1 890 print#4,i " [3 spcs] " p$(a) " [2 spcs] " tS(p%(a, 1 ))p(a) 

: next 
1 900 prinl#4,a$ " rank[2 spcs)player[3 spcsjteam 

[3 spcs]prod"a$ 
1910 ton = 1 to np a = a%{i). print#4,a " [3 spcs] " ; 
1920 a = i%(a) print#4,p$(a) " [2 spcs] " t$(p%(a, 1)) " 

[3 spcs] " p(a) 
1930 next. close4: return 
1940 wait 198,3: get r$. return 
1950 f = 0: a = val(a$): if a then t = a: print t$(t]. return 
1 960 for t = 1 to nt: if left$(a$ + " [4 spcs] " ,6) = t$(t) 

then return 
1970 next print a$,pl<$"??"bk$: f= 1: return 
1 980 print cs$;pk$ " [3 spcs]team[2 spcs]pts win lose " bk$ 

: pnnt 
1990 for i = 1 tont;pnnti;t$(i): 
2000 print t%{i,1)t%(i,2)to/o(i,0). next; return 
201 print cs$;pk$ " [3 spcs]player gms pts team " bk$ 
2020 for i = 1 to np 

2030 print I, p$(i)p%0,2)p%(i,O)tab(18]lett$(t$(p%(i,1)),3) 

2040 next return 

2050 pnnt "goto 1210 to recoup" 
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Home Control 
On A VIC 20 



Jean Des Rosiers 
Montreal, Quebec 



". . Jams on lights, controls a cold storage room, gathers temperature 
data, and keeps watch on my motorcycle parked in the backyard. ' 



Wiih V/C20s avaifabfe af wch hij> price-; these days, Mr. Oes Ros/ers^ iDork approaches the idea! real tife application, hi 
fad, the BSR Command Console and remote modules will easily cost more than the VIC and Mr. Des Rosiers hardware. 
The BSR system ts available at Batons or Radio Shack, and uses the AC tines already mside the walls of your home to 
send signals to remote modules plu^iied into any AC outlet. These signals are sen! at a much higher h^equency than 60 Hz 
so they won 't inierfert^ with the 120 volt AC power The remote module then transfers power to whateoer is connected to 
It. and ooila! Any AC orb can be controlled at any time' And with the program presented here they can be controlled at 
any lime of any day of the ufeek. To top it off, Mr. Des Rosiers has added eight analog to digital inputs so information can 
be collected that can he used to detertnine controller output. The input could come from a simple switch or even a 
temperature sensor, for which detailed schematics are included! As if that weren t enough. Des Rosiers has also built 
remote status indicators h'om 7 segment displays so yotf can elimiriofe your TV or monitor and use it elsewhere! M.Ed 



[ started playing with micro processors when I bought a used KIM, 
Then [ bought the kit version of the Sinclair ZX80. A few years later 
Igot hold of area] microcomputer- a DECVT-180. but when my 
youni^ daughter always wanted to hammer away at my keyboard, I 
decided to gel her a ViC 20. The ads promised great educational 
software, plus they had started to drop in price. 

The "great educational software" came In expensive and impracti- 
cal cartridges, and all iit english, A french speaking two year old 
can't be taught the subtleties of the english language in a short 
enough time to become interrested, and on a VIC 20. So the poor 
vie was left alone in its box. I later bought a 64 and she quickly 
learned numbers and the alphabet. 

I then tried to sell the poor VIC 20, but nobody was foolish enough 
to consider buying it. Then reading the 64's programmers refer- 
ence manual I noticed it had a 24 hour clock, I then checked the 
VIC 20 to find it had a clock too. That led me to think about the 
times I wanted to have a computer run a few things arouEid the 
house but rejected the idea as being too complicated. 

I had read the numerous articles that were written throughout the 
years about home control, most of ihem either required a lot of 
hardware modifications or tying up an expensive micro computer. 
With programs written in hard to adapt machine language. The VIC 
20 had none of these limitations. It's cheap, has a clock, a user 
port, an expansion connector and good basic. 

As I started to write the control program it became obvious that the 
basic amount of memory was not great enough to store the arrays 
needed by the program, so the first order of lousiness was to build 
an 8K memory expansion. 

An analog to digital converter and an analog multiplexer, giving 
eight analog measuring points, were added to the same module 
and hooked up to the expansion connector. 

Then 1 built the interface to hook-up the BSR controller to the user 
port. A home built battery backed-up power supply made the 
whole system immune from power outages. I also added a remote 
display to keep track of what was going on without having the T.V. 



set on all the time. Most of the hardware described can be built as 
required. If the full possibilities of the system are not needed, just 
build whatever interfaces are necessary to make il functional. 

Hardware and Soflware Description 

Memory Expansion 

The 8K expansion is simply an 8K by 8 bit chip connected on the 
expansion connector, as shown in figure l. 

BSR Interface 

The BSR interface, figure 2, is a modified (to make it work) version 
of a circuit that appeared in the January 1982 issue of BYTR, 
Voltage to power the oscillator is provided by the BSR conimand 
console itself. Locate a large (1000 uF) capacitor in the command 
console, connect the respective + and - leads from the interface to 
the capacitor leads. There should be about 18 volts on that filter 
cap, but be careful when measuring voltages in the command 
console because it Is not isolated from the A.C line. That is why an 
op to- isolator is used to connect the interface to the user port. The 
output from the oscillator is connected to pin 7 (seven) of the 542C 
I.e. (the 542C is the only chip used in the BSR consoles). Any 
command console can be used provided it has a 542C chip. 
Usually on the mini consoles and the large ones lacking ultrasonic 
capabilities, pin 7 is grounded. Cut the foil trace leading to pin 7 
and connect it to the output of the oscillator in the interface. 1 
added a 15 volts zener to keep the voltage on the 4001 CMOS I.C. 
from reaching destructive levels. It seems that the old BSR con- 
soles had an 18 volts zener, but the newer ones don't. So to keep 
The circuit operational it is better to put in the 1 5 volts zener. 

The oscillator output should be 40 Khz with the values given. The 
frequency doesn't have to be spot on 40 Khz - the BSR wilt accept 
commands with frequencies ranging from 33 to 50 Khz, although 
the operation will be marginal at the extremes of the range. 

The software to make this interface mimic the cordless controller 
works as follows. First, the code to be sent is stored as a variable, 
eg: the 'ALL ON' command is equal to "0001111100", The pro- 
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gram then searches this string and pokes the appropriate values in 
memory. For a zero, The program pokes the values 24 and 1 36 in 
two consecutive memory locations. For a one, the numbers poked 
are 80 and 80. These numbers were chosen lo give the correct 
liming using instruction loops in machine language. When the 
whole siring has been examined and the appropriate values 
poked, rhe machine language subroutine takes over and toggles 
the 1/0 port according lo the values previously poked in memory. 
The net result is a complete emulation of the BSR command 
console. Thus the sequence is to lirst send a unit code, then the 
action to be taken, just as if someone was pushing the buttons. 

A/D Converter 

The A/D used is a single channel ADC-0804. A 4051 CMOS 
analog multiplexer expands it to a total of 8 analog inputs. The 
analog channel is selected by an octal latch. The 1/0 port could be 
used to do the same thing, but would be less elegant. The whole 
circuit is shown in figure 3. Since 3 decoded addresses were 
needed (the octal latch and the A/D are memory mapped) and 
three 8K address blocks were left unused (block I is used by the 8K 
expander), there was no need for an address decoder. So block 2 is 
used lo select an analog channel, block 3 starts an analog conver- 
sion and block 5 reads the result from the A/D, 

The software used is quite simple. First the selected A/D channel 
to be used, from to 7, is poked where the machine language 
subroutine is located, then this value is stored to location 16384 
(4000 hex or block 2). Since the octal latch (74LS373) is selected by 
block 2, we end up with an analog channel being selected. Second, 
to start a conversion we only need lo send a pulse to location 
24576 (6000 hex or block 3j. To give the A/D lime to complete it's 
conversion, a small delay loop is executed. Then the value from 
location 40960 (AOOO or block 5) is loaded in the accumulator and 
stored in memory location 16156, which is where the basic part of 
the program relrieves the result of the conversion. This whole 
process is repeated 40 times to iron out peaks or stray values. 

Temperature Sensors and Amplifiers 

1 sel out to find cheap, easy-lo-gel and reliable sensors. 1 finally 
opted for regular 2N-2222A transistors. The emitter base junction 
of a silicon transistor will measure about 7 volts when forward 
biased, and goes down as temperature increases. The change in 
voltage is minimal, about 2.16 mV/T or 216 mV from OX to 
lOOT. Since the temperatures I was working with would give me 
the same range (-50X lo +50X), 1 was forced to amplify the 
signal. As a side benefit, the signal is inverted so that voltage goes 
up as temperature goes up. The amplifiers are implemented with a 
pair of LM324's quad op-amps. Now the rate of change is a more 
measurable21.6mV/X. 

The distance from the sensors does not affect the readings, but as 
wire length increases, so does noise pick-up. When the sensors 
are lo be located more than 10 metres from the amplifiers, put a 
small (0. 1 uFj capacitor at the amplifier input to shunt the noise lo 
g round - 

Power Supply 

There are two flavours of the VIC 20. One has only 9 volts A.C. 
input, with the rectifier and the regulator inside the keyboard, and 
the other has 9 volts A.C. input and +5 volts D.C. input (the 
rectifier, filter capacitor and regulator are inside the power pack as 
in the 64's). The power supply shown in figure 5 will accommodate 
both types. 



The power supply in figure 5, works as follows. First the 9 volts 
A.C- from the transformer is rectified and connected to a 12 volt 
battery, I used a transformer from the early VIC's, which 1 got from 
a local parts store, and with it the charge current is a safe 300 mA. 
The battery can be any size 12 volts. 1 used a sealed 12 volt 
industrial lead-acid battery, but a small motorcycle battery or the 
right number of nickel-cadmium cells would do as well. The 12 
volts from the battery is brought down to 5 volts using a 4 ohm 
resistor feeding an LM-323 three amp regulator. The resistor is 
used to reduce the input voltage lo the LM-323, otherwise it's 
temperature would climb too high and it would cause a thermal 
shut-down. Even though the input voltage is reduced to 8 volts, it 
is still wise to heal sink the regulator. The 9 volts A.C- is fed fo the 
VIC as usual. In the event of a loss of power the battery/ + 5 volts 
regulator will keep the VIC 20 humming. The only thing not 
working would be the cassette interface. 

Another way to get the same backup would be to use alkaline "W 
cells with rectifiers used as current steering diodes. For the old 
style VIC's use 6 " D " cells to get 9 volts and hook this up lo the 
filter cap preceding the 5 vohs regulator (see figure 6). On the 
newer VIC's use 4 cells with 2 rectifiers and tap this last combo in 
the power cable, as in figure 7. 

Remote Display 

Figure 8 is a schematic lo giving a visual indication of what is going 
on, without having to keep the TV or monitor on. On my system 1 
used two displays of four digits each. One of the displays is used to 
show the time, and is updated each time the program goes through 
Ihemainloop.Theother is used to show the temperature of one of 
the sensors, chosen by keyboard entry. The method of transmis- 
sion between the VlC-20 and the displays is serial, with a small 
peculiarity; the same wire that sends the data is used to power the 

display. Only three wires are used lo connect the VIC to Ihe two 
displays, so that it can be located quite far without having a mess of 
wires strung all over the place or having lo hunt for an outlet to 
power the displays. 

A/D Calibration 

It ts not necessary lo trim every channel so that they respond the 
same way. The required offset will be done by software. First 
measure the voltage at the output of the LM324 amplifier with a 
sensor immersed in crushed ice. then lake a reading with the 
sensor plunged in boiling water, this will give you the range for 
lOOT, on my system the range was 1 .6 volts at OT and 3.76 voits 
allOOT, thus: 

(376-1. 6)/100-0.a216v/T 

Since a temperature of OX gives around 1 .6 volts at Ihe output of 
the LM324 amplifiers (on my syslem), we can extrapolate that at - 
SOT the output would be 1 ,6-(50 X .02 1 6) or .52 volts. Lets set it to 
,5 volts, to give a bit of leeway, this last value will be the voltage 
required on pin 7 of Ihe ADC-0804. Turn the proper pot until the 
voltage on pin 7 is equal lo .5 volts. To sel tfie voltage on pin 9 
(VREF/2), the calculation is as follows. The range is lOOX (-SOT 
fo +50'C). solOOX.0216 = 2.16 volts and VREF/2 = 2. 16/2 = 
LOS volls. Lets set it lo 1,1 volls. Turn the other pot until the 
voltage measured on pin 9 is equal to 1,1 volls, 

!f absolute precision is not required, the potenliomelers can be 
replaced by a resistor divider network as shown on the diagram. 

Now connect all the sensors to the amplifiers, and the amplifiers lo 
the A/D, and run the program In listing 2. Plunge ihe sensor lo be 
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calibrated in a glass filled wilh a mixTure of ice and water. Let the 
reading stabilize and note the reading (The first reading is for 
C%(0) and the last C%(7) giving all eight channels), Ttiis is the 
offset to be used with that channel. Note the readings for all eight 
sensors (if they are all used) and insert the proper values in the 
main program. 

Listing 2 : Temperature Sensor Offset 



10 print 'B" :fori = 1 Io7 

20 gt = 

30 poke16384J 

40 forj = Oto 19 

50 poke 24576,0 

60 gt = gl + peek(40960) 

70 next ) 

80 result = 127'-(gt/20) 



GT IS Grand Total 

select analog ctiannel 

read sensor 20 times 

start conversion 

read result and add to previous 

result IS offset 
90 print int((int(resull* 1 00))/100) drop all fractions 
100 next i 

110 lor 1 = to 999: next i 1 second delay 

120 goto 10 

The comments tell the story pretty well. Using the offset generated 
by this small routine, I have tested two sensors one next to the 
other, and have found them to be accurate to within O-SX from 
OT to 45X. The teniperalure readings given by both sensors were 
exactly the same throughout the range. 

Program Structure: Listing 1 



Line(s) 
100 

110 

120 

130 to 220 
230 to 370 
360 to 460 
470 to 590 
600 to 660 
670 to 900 
910 to 980 
990 to 1020 
1030 to 1060 
1070 

1080 to 1100 

11 10 to 1130 



1140 to 1160 
1180 to 1240 

1250 

1260 to 1290 

J3001O1320 

1330 to 13S0 
1360 to 1390 

1400 to 1450 



Description 

256 bytes are reserved for the machine language 

subroutines from 16128 to 16383. 

The offset required by the temperature sensors are 

inserted on this line. 

Arrays are DIMed here. OF is clock offset. 

BSR message formats 

Data statements lor machine language routines 

Constants and set the main array to a known value. 

Menu display. 

Set clock and day. 

Set "Action array" routines. 

Set BSR modules NOW. 

Load array from tape. 

Save array to tape. 

Get character from keyboard, if equal to Terminate, 

i^oback to menu. 

If character input is from 1 to 8, send value read 

from sensor selected to remote display. 

Search array for a match to the present time and set 

the appropriate BSR module on or off. Also send the 

time to the remote display. 

Go read temperature and change day at midnight. 

Every ten minutes reset BSR modules as they 

should be. in case of a power outage. 

End main loop. 

Search a secondary array to make sure BSR modules 

are not toggled twice, and go do it if it is not done. 

Send the proper module number and the proper 

action lobe taken. 

Set all sixteen modules from the NOW command. 

Scan the BSR command string and poke the proper 

values in memory. 

Read all eight temperature sensors and display 

results on the screen as well as the time and day of 

the week. 



C%(x 
C$(x) 
T%(1,J,A) 



1 460 to 1 4i>0 Send data to the remote displays. 
1500 to 1550 Clock offset routine (see text). 

Temperature and lime related decisions can be done between lines 
1090 and 1 100, The values for all eight temperature sensors are 
contained in AC{0) to AC(7X and are in X. The user port can be 
used as output to sound a siren for an alarm or as inputs to read 
alarm sensors. If more bits of the user port are used as output don't 
forget Jo change address 16161 in the BSR interface driver to reflect 
what bits are used as output. In my program I used PBO to PB2 as 
outputs. PBO is connected to the BSR interface, PBl and PB2 are 
used for the remote displays. 

1 had to include a ^'Clock offset routine" because the 24 hour clock 
on the VIC 20 is slightly fast, about 50 seconds a day fast. There 
were two ways to go about this, hrsl make a hardware crystal 
oscillator or second make the software trim the clock. The routine 
included will trim 2 seconds per hour so the VIC ends up keeping 
the time almost perfectly. 

Since this is not a commercial endeavour it is possible to enter 
wrong data, and the program will do funny things, I trust that 
someone smart enough to duplicate all or part of this package 
would not be foolish enough to enter wrong values. 

Explanation Of Variables 



Temperature offset. Range of x,0 to 7. 
BSR message string. Range of x J to 1 6, 
Main action array. A number is stored that represents 
the time and action to be taken in the following format 
HHMMA where HHMM is hours and minutes, A is the 
action, a 1 means turn on at the specified hour and a 
zero, off. The number stored can't be higher than 2359 1 
or lower than 0, Range I to 15, J to 6 and A to 3. I 
represents channel number, J is the day of the week and 
A is one of four actions to be taken per day- 
Daily array, a 1 means the action was taken. Needed to 
keep from sending a BSR message on every loop of the 
program. Range I to 1 5 and A to 3. 
A constant equal to 0.3921568 
Days of the week. Range of x.O to 6, 
Day of the week, O = monday, 1 =tuesday andsoon. 
Value of character typed on keyboard. Used to send a 
temperature value to the remote display- 
Equals CA- 1 

Value to be poked in 16157 for the remote display. 
Represents the thousandths and hundreds. 
Value to be poked in 16158 for the remote display. 

Represents the tens and units. 

Value to be poked in 16159 forthe remote display. Used 

to select user port bit 2 or 4, 

Value in T of the temperature read for that sensor range 

of x,0 to 7 

Four leftmost characters read from the VlCs clock. 

Middle two characters read from the clock. Used to reset 

BSR modules every 10 minutes. 

Value of H$ 

Switch to keep from incrementing the days counter 

more than once at midnight. Value or 1 . 

Switch to keep from sending a BSR message more than 

once every ten minutes. Value or 1 . 

HHMMA transferred from T%(1,J,A) 

HHMM extracted from TA% 

A extracted from TA% 

BSR message string to be sent 



XO/o(l,A) 



K1 

JO$(x 
E 
CA 

CB 
HA 

HB 

HC 

AC(x) 

H$ 
HH$ 

HEo/o 
SW 

SI 



TAO/o 
TB% 

AC% 
ENS 
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GT 
A 
Y 
C 



Total of 40 sensor values 
Average of llie 40 values ( = GT/40) 
Temperature value wirfi offset added 
Y to two places, f CC.CC) 



Machine Language Routines 



BSR Interface 






16160 169,1 


da #7 




16162 160,0 


ldy#0 




16164 141,18,145 


sta 37138 


(DDR for port B) 


16167 169,1 


lda#1 




16169 141J6J45 


sta 37 136 


{DATAreg, tor port B) 


16172 32,69,63 


jsr 16197 




16175 234 


nop 


- 


16176 234 


nop 




16177 234 


nop 




16178 169,0 


da#0 




16180 200 


iny 




16181 141,16,145 


sta 37 136 


{DATA reg. ior port B) 


16184 32.69,63 


jsr 16197 




16187 234 


nop 




16188 234 


nop 




16189 234 


nop 




16190 200 


my 




16191 192,24 


cpy #24 




16193 208,228 


bne 16167 




16195 96 


ris 




16196 234 


nop 




16197 169,0 


lda#0 




16199 105,1 


adc#1 




16201 32,81,63 


jsr 16209 




16204 201,11 


cmp#11 




16206 48,247 


bmi 16199 




16208 96 


rts 




16209 190,0.63 


ldxl6128.Y 


16212 202 


dex 




16213 208.253 


bne 16212 




16215 96 


rts 





The first three lines set up the user port to a known state. Then the 
program jumps to a couple of instruction loops that provide the 
proper delay. Line 16209 loads the X register with the values that 
were poked in memory by the basic part of the program, since X is 
loaded from address 16128 indexed by Y. we manage to scan the 
24 memory locations containing the values chosen to give the 
proper timing relationship. Since the values chosen gave only one 
tenth of the time required, lines 16199 to 16206 make the subrou- 
tine starting from 16209 repeat ten times. 



A/D Converter 



16216 
16216 
16221 
16224 
16226 
16227 
16229 
16232 
16335 



169,0 

141,0,64 

141,0.96 

162,85 

202 

208,253 

173.0,160 

141.28,63 

96 



lda#0 (Channel # in 16217) 

sta 16384 (Octal latch) 

sta 24576 (Starts conversion) 

Idx #85 (delay) 

dex 

bne 16226 

Ida 40960 (A/D chip) :. 

sta 16156 

rts 



Basic pokes the channel number in memory location 16217, this 
value is stored into the octal latch thus selecting an analog 
channel Then a conversion is started by line 16221. A small 



instruction loop at 16224 gives the A/D time to finish it^s conver- 
sion. The A/D converter is then read in line 16229 and the result 
stored in memory location 16156. The value in this last location is 
retrieved and treated by the basic part of the program. 



Remote Display 



16236 
16238 
16241 
16244 
16247 
16249 
16252 
16253 
16255 
16256 
16258 
16259 
16262 
16265 
16268 
16270 
16273 
16274 
16276 



162,100 

172,29,63 

173,31,63 

141,16,145 

169,0 

141.16,145 

136 

208,242 

202 

208,236 

96 

172,30,63 

173,31,63 

141,16,145 

169,0 

141,16,145 

136 

208,242 

96 



Idx #100 

Idy 16157 

Ida 16159 

sta 37136 

lda#0 

sta 37136 

dey 

bne 16241 

dex 

bne 16238 

rts 

Idy 16158 

Ida 16159 

sta 37136 

lda#0 

sta 37 136 

dey 

bne 1 6262 

rts 



(To repeat 100 times) 
(Thousands + Hundreds) 
(Port bit used) 
(Data reg. for port 8) 

{Data reg. for port B) 



(Tens + units) 
(Port bit used) 
(Data reg. for port B) 

(Data reg. for port B) 



This subroutine is used to send data to the displays. The interface 
to the basic part of the program is done through memory locatioiLs 
16157 to 16159. The first Iwo locations contain the thousands, 
hundreds, and the tens units of the number to be transmitted, and 
the last contains the bit value of the port used. The program 
consists of instruction loops controlled by the values in memory. 
The Iwo routines (16236 to 16258 and 16259 to 16276} are 
basically the same, except that the firs! one is repeated 1 00 times (o 
give the correct number of times that the port bit is toggled. Any 
number up to 9999 can be sent, as long as the proper values are 
poked in memory. 



BSR Command Codes 



DO D1 D2 D3 D4 Function 

1 1 ALL ON 

1 ALL OFF 

1 1 ON 

1 1 1 OFF 

10 11 BRIGHTEN 

1 1 DIM 

110 CHANNEL 1 

1110 CHANNEL 2 

10 CHANNEL3 

10 10 CHANNEL 4 

10 CHANNELS 

10 10 CHANNEL 6 

10 10 CHANNEL? 

110 10 CHANNELS 

1 1 T CHANNEL9 

11110 CHANNEL 10 

110 CHANNEL 11 

10 110 CHANNEL 12 

CHANNEL 13 

10 CHANNEL 14 

10 CHANNEL 15 

110 CHANNEL 16 



Siring Name 

TA$ 

TES 

A$ 

E$ 

NOT DEFINED 

D$ 

C${1) 

C${2) 

C$(3) 

C${4) 

C$(5) 

C$(6) 

C$(7) 

C$(8) 

C${9) 

C$(10) 

C${11) 

C$(12) 

C$(13) 

C$(14) 

C$(15) 

C${16) 
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Listing 1: Home Control Program 



OL 



CH 

LJ 

BL 

JM 

LN 

JL 

BJ 

PJ 

GH 

BF 

BA 

DB 
NA 
JE 
AH 
MF 
KJ 
FF 
MF 
JP 
AF 
GH 
AJ 
Ml 
JG 
OK 

LK 
NJ 
GP 
KP 
DA 
PB 
DF 
DL 
FF 

Kl 

LD 

FH 

NP 

GP 

ME 

H 
OM 
LH 
Ml 
LA 
ME 
OE 

II 

BC 
KO 
PE 
AG 

JF 
CE 
JL 
DK 



100poke56,63:clr 

1 10 c%(0) = 17:c%(l) = 21.c%{2) = 19x0/0(3)= 18 

:c%(4} = 27:c%(5} = 0:c%(6j = 0.c%(7) = 
I20dimc$(16):dimt%(15,6,3):dimtt%{15).di[nx%{15.3) 

:k1 = T 00/255 :poke36864, 6 ;of = 2 
130c$(1)= "01100T0011 ":cS(2)= "1110000011 " 
140c$(3)= "0010011011 ":cS(4)= "1010001011 " 
150c$(5)= "0001011101 ".c$(6)= M001001101 " 
160c$(7)= "0101010101 ".c$(8)- "1101000101 " 
170c$(9)= "0111010001 "c$(10)= "1111000001 " 
180c${11)= "OOllOUOOr :c$(12)= M01100100r 
190c$(13)= "0000011111 " cS(14)= "1000001111 " 
200c$(15)= "0100010111 ":c$(16)= "11000001 ^ 
2l0a$- ^0010111010":e$- "0011111000' 
220 la$ - " 0001 1 1 1 1 00 " :te$ = ' 00001 11110" 

d$= "010011 
230 data 169, 7.160, 0,141, 18,145,169 
240data 1,141. 16,145, 32. 69, 63,234 
250 data 234, 234. 169, 0, 200, 141, 16, 145 
260 data 32, 69, 63,234,234,234,200,192 
270 data 24,208,228, 96.234,169, 0,105 
280 data 1, 32, 81, 63,201, 11, 48,247 
290data 96,190, 0. 63.202,208,253, 96 
300data169, 0,141. 0, 64,141, 0. 96 
310 data 162, 85, 202,208,253, 173, 0, 160 
320datal41, 28, 63, 96,162,100,172, 29 
330data 63,173, 31, 63.141, 16,145,169 
340dala 0, 141, 16, 145, 136,208,242,202 
350dala208, 236, 96.172, 30, 63,173, 31 
360data 63,141, 16,145,169, 0,141, 16 
370 data 145, 136,208, 242, 96 

380 |o$(0) = " monday " :jo$(l ) ^ ' tuesday " 

390 )0$(2) = " Wednesday "' jo$(3) = " thursday "" 

400 iO$(4) - " triday " ;]o$(5) = '" Saturday "" 

410]o$|6)= ^sunday":sw = 0.s1 =0 

420 fori = 0to15. fori - 0lo6 fork = 0to3 

4301%(i.f,k)^12000;nexl.next.next 

440fori = 16160to16276;reada:pokei,a:r^exT 

450 pokel 61 28,80 pokel 61 29,80:pokel 61 50,240 

460pokel6151,240:poke37138,7:poke37136,6 

;poke37136,0 
470prinfH"T)rint^setHc|Block" 
480 print "' set BaHction arrays" :Drint""BrIHun 




490 print "Diyoad array :print ^yiave array 

500 print ■J^Jxifiprint" set bsrflnHow 

510 inputr$:ifr$= " c " thengoto600 

520ifr$= ^a"^lhengoto670 

530ifr$= "I"thengoto990 

540 ifr$= ''sMhengoTol030 

550 j[r$ = ' e ■ thengoto590 

560ifr$= ''n"thengoto910 

570 jfrSO " r ' thengoto470 

580gosubl070:goto470 

590 end 

600 print "0Vprintti$,jo$(e).poke21 4,10 

61 prJnt:prJnt "' n = no change " ;poke21 4,4 

620 print;input ^time'" :l$-M\$ ="n" thengoto650 

630ti$ = t$ 

640 input " day = monday. . . " ;e 

:Jt(e>6ore<0)thengoto640 
650 printti$,jo$(e) 
660 ton = 1 to2000.next:goto470 
670pnnt^H\poke214,13 
680 print:print ' n = no change " print " a = next action "' 



PJ 

CA 
IE 
GH 
FD 
PA 
AE 
MH 
BK 
EN 
CJ 
BG 
FG 
PL 
CN 
FO 
HB 
CP 
NF 
PE 
BE 
EK 
JM 
NL 
ME 
NB 
DF 
BB 
Dl 
OJ 
HI 
PI 
01 
MB 
HK 
HL 
FK 
EE 
PK 
CH 

LP 

LM 

BN 

Kl 

CP 

HK 

KL 

Ft 

EP 

CD 

AB 

LB 

GC 

BD 

MD 

GD 

ON 

GO 

BA 

Ni 



690 pnnl " e = exit "" :print " d = next day "" 

;print""m = next module 
700 print "time hhmmaa^O off 
710print""[l2spcs]a=1 on" 
720 forj = 0to6;poke21 4,0;print 
730 print ""[14spcs]"; 
740 poke214,0. print print|0$(|):print 
750 tora = 0Io3.poke214,2,print:print'' time + action "\a+ 1 
760fOfi = 0to15 

770 poke21 4,9;prinl;prinl'^ [12 spcs] '" ; 
760poke214,9:print:printt%(i,i,a):poke214,6 
790 print:print "' module[1 5 spcs] "" ; 
800 poke214,6:pnnl;pnnt"' module ^l-fl:poke214, 7 
81 print pffnt " [10 spcs] ' ;;poke21 4,7 
820 pnnl. inputre$:ifre$= '" n " thengotoSBO 
830 ifre$ ="e" thengoto470 
840 ifreS - "" d ^" thengoto900 
850 ifreS = " m " thengoto880 
860 IfreS = "a'"thengoto890 
B70t%(i,j,a)-val(re$) 
880 nexti 
890 nexla 
900 nextj;goto470 

910 poke214,13:print:prlnt''0 = off". print "1 =on'' 
920ton = 0to15.poke214,10 
930print:print"'[23spcs]'' 
940 poke214,10:prlnt:print ' module ";i + 1 
950 inputre.lfre = Othentt%(l) = re:goto980 
960 ifre= llhentt%{ij = re.goto980 
970 goto930 

980 next gosubl330;goto470 
990open6,1,0 
1000 torj = 0to6.tora = 0to3 fori = Otol 5 
1010 input#6,v%:t%(J,j,a) = v%:ne>(t:next next 
1020close6;goto470 
1030 open6, 1,2, "data" 
1 040 fori -Oto6 fora = 0to3:fori = Otol 5 
1050print#6,t%(i,j,aj.next.next.nexl 
1060cfose6:goto470 
1 070 getc$.ftc$ = " t " thenreturn 
1 080 ca = val(c$):ifca = 1 orca = 2orca = 3orca = 4orca = 5 

orca = 6orca = 7orca = 8thencb = ca-1 
1090ha = (cb+1}*10:ifac(cb)<0lhenha-((cb + 1)O0) + 2 
1100hb = abs(lnt(ac{cb)))hc-4:gosub1460 
1 1 10 [n$ = left$(ti$,4):hh$ = mid$(ti$,3,2):he% = va[(h$) 
1120he% = val(h$):ha-int|he%/100);hb = he%-(ha'10 
1130 hb = he%-(ha"100) he = 2 
n40goSLJb1460:gosub1260.go3jb1400 
1 1 50 if(val{h$) = Oandsw = 0)thensw = i .e = e + 1 

:ife = 7thene = 
1 1 60 if(val(h$)<>0)thensw = 
1170hs = val|rlght$(tl$,2)) 
1 180 if(hh$ = '" 00 "" andsl = Oandhs>20)thens1 = 1 

:gosub1330:gosub1500:gotol070 
1190jf(hh$= "10'andsl =0)thens1 =1:gosub1330;gotol070 
1200 if(hh$= "20^ andsl =0)thens1 =1:gosub1330:goto1070 
1210if{hh$= "30 "andsl =0)thens1 = 1;gosubl330:goto1070 
1220if{hh$= "40 "andsl =0)thensl = 1.gosubl330:goto1070 
1 230 lf(hh$ = '" 50 ^ andsl = 0)lhensl = 1 :gosubl330:goto1070 
1240 if(niid$(tE$,4,1)= " 1 "jthensl =0 
I250goto1070 
1260 tori = 0tol5fora^0to3.la% = t%(i,e,a):tb% = int(ta%/10) 

:ac% = ta%-(tb%*10) 
1 270 it(he% = tb%andx%(l,a) = 0)thentt%(i) = ac% 

gosub1300.x%{La) = 1 
1280if(he%<>tb%andx%(i,a) = 1)thenx%(i,a) = q 
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KB 
CL 
KF 
NB 
OP 

Df 
BG 

Dl 

AK 

OH 

GO 

FN 

CJ 

AE 



1290next:next;relurn 

1 300 en$ = c$(\ + 1 ):go3ub1 360. ifac% = 1 thenenS = a$ 

1310 itac% = OthenenS = e$ 

1 320 gosubl 360. return 

1330 fori = 0to15en$ = c$(i+1).gosub1360;iftt%(j) = 

Thenen$ = e$ 
1 340 iflt%{i) - 1 thenen$ = a$ 
1350 gosub1360 next:return 
1 360 torj = 0to9,G$ = mid$(en$J -I- 1J ) 
1370 ifc$- '0'thenpokel6130 + j'2,24poke16131 +]*2,13e 
1380itG$= "1 "thenpokeieiSO+j'^^SOpokeieiai +j"2,80 
1390 next sys16l60. return 
1 400 print ' S " . prJntti$,|0${e):print 
1410fori = 0to7pokel6217,i:gt = 
1420tori-0to39;sys16216 



AC 
IP 
BL 
01 

MO 

MH 
00 

HK 

BF 

IK 

LG 

KD 

KO 



1430a = peek(16156):gt = gt + a;next 

1440a = int(gt/40):y = (k1"{a + c%(0))-50:c = {im(y'100))/100 
1450 prfnt " sensor M + 1 ,c:ac(i) = c;next;return 

1460poke16157,ha:pokel6l58,hb;poke16159,hc 

:poke37136,hc:poke37136,0 
1470 fork = 1tolnext;ftha>0thensys16236 
1480ifhb>0thensys16259 
1490 return 

1 500 hd = vai(ti$):hd - hd-of:ffhd<10thenti$ = " 00000 " + 

right$(str$(hd),1):return 
1510rfhd<100thenli$= ^0000" +rjght$(str$(hd),2):return 
1520 ifhd<1 OOOthentiS = " 000 ' .+ rightS(str$(hd).3):return 
1530 ifhd<10000thenti$= "00^ +right$(str$(hd).4). return 
1540 ifhd<100000thenli$- "0 " +right$(str$(hd), 5) return 
1 550 ifhd>95959thenti$ = rjght$(str$(hd),6j:return 



Figure i 
Figure 2 
Figure 3 
Figure 4 
Figure 5 
Figure fi 
Figure 7 
Figure 8a 
Figure 8b 
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Semiconduc tors 



I HM6264P-15 
I TIL-lll 

3 2N-3904 

I I N'4744A 

1 4001 

8 2N-2222A 

2 LM-324 

4 4033 

4 MAN-3 
lN-4001 
74LS05 
TIP-n7 
74LS04 
741^00 
4051 
74LS373 
ADC-0804 
LM-323 
KBPC25-02 



8k X 8 Sialic RAM chip 

oplo coupler 

NPN Transistor 

15 Volt 1 Wall Zener Diode 

Quad2-lnput NOR Gate 

NPN Transistors 

Quad OP-AMP 

Decade counter with 7 segment output 

7 segment display 
Rectifier 

Hex inverter with open collector 
Darlington PNP Power Transistor 
Hex inverter 

Quad 2-inputNAND Gale 

8 Channel Multiplexer 
Octal Larch 

8 Bit A/D Converter 
3 Amp 5 VOlt Regulator 
25 Amp Bridge Reclitier 
6 Amp Rectifier 



Parts Lisl 






Resistors t 


Capacitors 


I 


4 


25 W 


I 200 pf 


1 


30 


1/4 W 


1 470pf 


1 


100 


1/4 W ] 


1 0.05 uf 


1 


120 


1/4 W 1 


1 0.33 uf 


1 


]80 


1/4 W ] 


1 100 uf 


2 


750 


1/4 W 1 


I 500 uf 


2 


Ik 


1/4 W 




1 


5.1k 


1/4 W 




M 


9.1k 


1/4 W 




3 


10k 


I/4W 




2 


33k 


1/4 W 




8 


100k 


1/4W 




8 


IM 


1/4 W 
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FIGURE 1 
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FIGURE 2 
BSR IHTERFACE 
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^- *** HftKE HO CONHECTIONS BETWEEW VIC'S OHD AND *** 



*** THE BSR '5 



AAA 



Optolsolator 

I.e. 



TIL-111 
CD 4001 



VCC to pin 14 VSS to pin 7 



Oscillator output to BSR pin 7 

INP to VIC user port pin C 
GND to VIC user port pin A 
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FIGURE 3 
ANALOG TO DIGITAL CONVERTER 
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FIGURE 4 
TEMPERATURE SEM5QRS AND AMPLIFIERS 
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FIGURE 6 ALCALINE CELL BATTERY BACK-UP FOR OLD STYLE VIC'S 
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FIGURE 7 ALCALINE CELL BATTERY BACK-UP FOR NEW STYLE VIC'S 
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FIGURE 8a 
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FIGURE 8b 
REMOTE DISPLAY RECEIVER 
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A Comparison of 
Four Word Processors 



Ranjan Bose 
Winnipeg, Manitoba 



Even hard-core critics of the home compufer revolution' grudgingly 
concede Ihdt wo rtip recessing is reason enough for having a computer 
around the house. Wordprocessing programs for the Commodore 64 
abound in plenty and rnn in price from a few dollars to hundreds. 
Presented here is my impression of four medium-priced wordproces- 
sors for beginners and moderately advanced users of wordprocessing. 
These four programs are: 

SPEEDSCRIPT 3.0 from Compute! Publications on disk for 
$18.00 

Gold Disk volume 2 from Gold Disk Software on disk for 
$16.93 

OMNIWRITER/Omnlspell from HESWARE on disk for about 
$50.00 

SUPERTEXT-64 from MUSE on disk for about S60.00. 

These fofrn [wo comparable pairs in Ibeif prices and funcUoiis, 

General features: Both SPEEDSCRIPT and C.OLDDiSK come on 
write- protected disks with other programs (games, ulilities etc.). 
SPEEDSCRIPT is transferable while GOLDDISK is copy -protected. 
Inslmcllons for SPEEDSCRIPT appeared in Compute! (vol, 7 no, 3, 
March 1985), while those for GOLDDISK are included as text files on 
the same disk. SPEEDSCRIPT and OMNIWRITF.R both can work with 
tapes as well as disks. The other two can only access disk. 

OMNIWKITER comes with a compact and lucid manuaL The system 
disk is w rite-protected and contains several example files. The pro- 
i^ram permits mail merge, label making and has a 30000+ word 
spelling checker which is adequately fast and is user-editable (add or 
delete words). There are also ulilities for backing up disks (text files) 
and for copying the dictionary To another disk. 

SUPERTRXT comes with two identical disks which can be used for 
storing files. The manual is roughly the same size as the C64 manual 
and Is excellent. Several example files are provided on the disks. 

If you accidentally reset the computer, you can still access SUPER- 
TEXT and SPEEDSCRIPT (document preserved). Not so with OMNI- 
WRITER and GOLDDISK. Both OMNiWRiTER and SUPERTEXT have 
help menus. 



Display: Both SPEEDSCRIPT and GOLDDISK have 40 column unfor- 
matted displays (not showing margins, paragraphs and page breaks). 
SPEEDSCRIPT has an on-screen print preview option while GOLD- 
DISK does no!. SPEEDSCRIPT can send files to disk as formatted 
sequential files which can later be directly printed through a GET*/ 
PRINT' loop without using SPEEDSCHIPT. GOLDDISK is the only 
program in this group of four which does not word-wrap or parse 
(broken words at right margin). All four allow changing of screen and 
character colors, 

OMNIWRITER uses normal sized characters and a rolling-writer 
display either in 40 column width or full width {up to 240 columns). 



ThelaUershowsa portion of a file through a 40 column wide window. 
The edges can be seen by horizontal scrolling or by pressing F3/F4. A 
status line at the top of the screen indicates the name of the document 
and the page, line and column position of the cursor. The display is 
formatted (except for line spacing and right justification). Print pre- 
viewing on-screen is not supported Di.splay is divided into pages and 
you cannot continuously scroll from one end of a multi-page docu- 
ment to the other. Free movement within a page is possible. Fl moves 
to the next page; you can al.so go to any page directly. 

SUPERTEXT accepts lines of up lo 132 characters and has either a 
normal sized 40 column display or a hi-res 80 column alphanumeric 
display; the display is selected by LOADing separate utility modules 
without affecting the document ici memor>'. The 80 character display 
is unusable for composing text unless you use a high resolution 
monochrome monitor, and the manual gives a clear warning about 
this. It is however, more than adequate for print previewing and for 
checking page layout. The Di.splay is not normally formatted but can 
be made so by pressing the '&' key. Print previewing on the screen is 
highly sophisticated (sec printing). There is also a split screen option 
which allows you to view two individually scrollable parts of the 
document on the same screen, very helpful during block move and 
copy operations or while trying out different sentence constructions 
for easy readability. 



Editing and Formatting: SPEEDSCRIPT SAVEs text files as screen 
codes (PRG). GOLDDISK can SAVE and LOAD ASCII files either as 
PRO or SEQ. A GOLDDISK file can be LOADed by SPEEDSCRIPT and 
only formatting and some text characters have to be changed. 
SPEEDSCRIPT files however look strange on GOLDDISK and cannot 
be used. SPEEDSCRIPT permits display of disk directories and send- 
ing DOS commands. GOLDDISK does neither SPEEDSCRIPT uses 
inverse letters as formatting symbols for selecting margins (left, right, 
lop and bottom), page length, width (up to 255 columns), line spacing, 
forced page breaks, text justification, and centering. It uses keyboard 
control sequences for transposing letters, changing case, paragraph 
indenting, deleting backwards or forwards - a letter, word, sentence, 
or paragraph and then retrieving it if necessary. It also has multiple 
keys for moving forwards or backwards through the document by 
character, word, sentence or paragraph. It does not support right and 
left justification at the same time, though. It supports up to 255 
character long headers and footers. It also permits remarks and notes 
which are displayed on the screen but not printed on paper, 

GOLDDISK uses conventional BLOCK commands. You first mark a 
block and then either move, copy or delete it. Retrieval of deleted 
material is impossible. It supports all of the above formatting com- 
mands except for setting of document width, transposing letters and 
changingcase{nor do the higher priced programs?). The cursor can be 
moved bi-directionally by a letter, word, line or IG lines or to the 
extremes of the document. Both programs have an insert mode 
(subsequent text moved down while adding text) or replace mode 
(overwriting). Keys can be defined by both programs (graphics and 
other special printer codes). SPEEDSCRIPT allows one to print the 
upper/lower case character-set CBM graphics symbols. None of the 
others permit that fully. Gold disk does not support headers or footers. 
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SPEEDSCRIfT has a large buffer ro accommodate 'J4K of lexl and 
allows linking of file::; from disk and !ape during printing {not during 
editing; only SUPERTEXT permits that) GOLDDISK allows only 24K 
with no iinking of files. Both programs allow appending of hies in 
memory by serially LOADing documents. Both allow selective and 
global searches and replaces. Tabulation is difficult on both if not 
impossible, 

OMNIWRITER files (PRG) are divided into four areas called pages - a 
work area for notes to yourself, or for moving deleted blocks (sort of an 
inconvenient recall buffer), and for material which can be merged 
during printing (addresses, labels etc.). The other three areas are for 
the text, header and footer. Incidentally, any of these can have more 
than one page and can be accessed easily for editing. Horizontal 
tabbing (lelt justified for text and decimal justified for numbers) makes 
tabulation easy. Any number of tabs are permitted. The two extreme 
markers on a formal line decide the left and right margin. If these tabs 
are repositioned later, the entire display changes and text is rear- 
ranged. One interesting touch is that when you place the cursor on 
any format symbol, a normally invisible letter shows up to indicate 
the key for selecting the function represented. Up to ten special ASCII 
printer commands can be programmed. Right justification is con- 
trolled during printing which means that your entire document will 
either have a straight or a ragged right margin. Cursor movement to 
top and bottom of document, by pages, screens, lines, tabs and 
characters is supported. Other standard features like selective/global 
searches, replaces, and block operations are provided. Line spacing 
can be changed from ! to 9 but does not show up on the screen (same 
as the other programs]. Paging (text length) has to be manually 
determined by placing end-of-page markers. This also means that if 
you use variable spacing in your document you have to do a bit of 
mental calculations since the status line would show line numbers as 
if it wasasinglespaced-documentandyou may end up with a printed 
page which extends into the next page. You can overwrite or insert 
loxt anywhere in the document ea.'^ily. The lack of automatic pai^inj? 
however has one benefit. It avoids prinhng a heading belonging to the 
paragraph starling on the next page al the bottom of a page) The 
document can be up to 34K long and linking or merging of other hies 
is easy during editing. This includes any sequential file (data bases, 
spreadsheets, telecommunications] or other SEQ or PRG wordproces- 
sor file. Variable information can be merged from the work page, 
other OMNIWRITER hies, or any sequential hie. A form letter thus 
could be composed and different names and addresses merged with it 
to get multiple copies (Mail-merge). Directory and DOS commands 
are a keypress away. If you try to quit without saving an altered 
document a warning is displayed, 

SUPERTEXT is a program with a unique personality. On the one hand 
it has a very flexible and sophisticated printing package and hie 
linking and merging facilities, yet on the other hand it has a very slow 
and inefficient editor. It has three operative modes. Pressing Fl 
toggles the CURSOR mode which is used only for disk access and 
block operations. The screen goes dead and you cannot type in any 
text. The directory is displayed in two columns with numbers which 
can be used in lieu of file names for LOADing The available space on 
disk ts displayed as pages (roughly corresponding to a double spaced 
printed page) rather than as the more familiar blocks. The directory 
displays only USR and SEQ files. While carrying out block operations 
the marked block can be SAVEd to disk and can be retrieved later if 
necessary by merging. This method of block retrieval however is 
cumbersome compared to using the replace-buffer available in 
SPEEDSCRIPT SUPERTEXT, like OMN[WRITER, allows non- 
destructive merges. This means that the material from disk is inserted 
al the cursor without overwriting the existing document. 

Pressing F3 Toggles the ADD (insert) mode which alone can be used 
for composing and editing text. Pressing F5 toggles the CHANGE 



mode which permits overwriting. You can select the direction of 
movement of the cursor by pressing + or - and can move by a 
character, word, half a line, a line, half a page or more. All standard 
formatting ts supported. You can number pages at the lop or bottom, 
in the center of a hne or on the right and left edge on alternate pages. 
Up to 15 tabs are supported for tabulation (right or left juslihed; for 
numbers you have to put the 00 after decimal; this is not necessary 
with the decimal tab of OMNIWRITER). The text area available is only 
lOK but you can go to a linked hie forward or backward and edit it. 
Also, if you are LOADing a sequential hie (composed on some other 
word processor] which is larger than lOKyou can LOAD it in chunks 
and SAVE them as linked files! Nine user-dehnable keys are available 
for sending ASCII codes to printers. You can also define the \ key to 
represent a frequently used word or phrase up to 30 characters long. 
Every time the \ key is pressed the phrase is inserted in the docu- 
ment- 



Printing: SPEEDSCRIPT allows previewing on screen, GOLDDISK 
does not. Both print to the lowest common denominator i.e., a dumb 
printer, SPEEDSCRIPT has problems with RS232 printers. GOLDDISK 
has problems with a 15261 (a special version is available though). 

OMNIWRITER formats the text on-screen and therefore does not 
need print previewing. You cannot see line spacing or right justifica- 
tion on the screen though You can print a sheet at a lime or use fan 
fold. Printing can be halted and then you can either continue, reprint 
the page or abort. Selective printing (e.g. pages 6-19} is possible. 
Many printers including RS232 devices and the 1520 plotter are 
supported. There are utilities and special versions for parallel and 
IEEE printers as well. SUPERTEXT uses customizable separate printer 
files. Print previewing on screen is supported. Printing on paper and 
screen can be hailed and you can continue, reprint a page, print a line 
at a time, skip a page or abort. You can print more than one copy (not 
possible with linked files for obvious reasons]. Printing speed is much 
slower than any other program (it probably uses a different algorithm). 

Both these programs can send special codes to trigger printer func- 
tions like italics, emphasized, bold, super/subscripts, custom- 
graphics and underlining etc. (provided your printer supports these 
functions). 



Overview: SPEEDSCRIPT for its price is an extremely sophisticated 
wordprocessor. It has the largest text area, very flexible and intelli- 
gently designed cursor movements (by elements ol text rather than by 
lines/screen etc.). It also has an undo or retrieve function which none 
of the other packages reviewed here possess. At its price, features like 
80 columns, mail merging, or spelling checking should not even be 
expected. The only vital thing missing is right justification. GOLD- 
DISK has many more shortcomings - a limited text area, no DOS or 

directory access, no screen previewing capability. It however can right 
justify. Undoubtedly, SPEEDSCRIPT is an easy winner in this cate- 
gory. It is a serious contender even when compared with the higher 
priced programs. 

The higher priced programs are difficult to compare, SUPERTEXT has 
a very powerful and flexible printing package (to screen and hard- 
copy), and extremely powerful text merging and linking/splitting. It 
however does everything more slowly than the other programs and it 
has the most inconvenient editor 1 have ever seen, which is its major 
drawback. A wordprocessor should leave your mind free to think 
while you compose a document, SUPERTEXT can slow you down. 

The only minor inconvenient feature of OMNIWRITER is its non- 
automattc page-formatting. When your document is anything but 
single-spaced, the line * indicator in the top status line is incorrect. 
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You have lo mentally count where on the printed page you are and set 
page end markers accordingly. Clioose variable spacing and you are 
in tor more work' However, it is comforting lo know that tiie feature is 
there and you can space your document variably up to 9 spaces 
between lines. SUPERTExt does not allow this choice. You either 
have a single or double spaced document throughout^ period. This 
beef aside, OMNIWRITRR/Omnispell is a very convenient, efficient 
package, easily the besi among the ones reviewed here, lis flexible 
formatted screen output, uncluttered screen, alphanumeric tabbirag, 
convenient editing and the icing in the form of mail merging and 
spelling checking make it a very attractive package. This is a wordpro- 
cessor which even a beginner can use easily and continue exploring 
and growing with it for a very long time. 



multiple custom characters you are in for a surprisel Your programs 
which worked fine with the 05 ROM will now report a terminator 
error! The solution is simple. Normally when designing a custom 
character, you draw an 8 by 8 matrix and add the binary values of 
columns (1,2,4,8,16,32,64,128) depending on the position of dark 
printingcells{Oif blank). Thus you have 8 ASCII values which are sent 
as a concatenated character string to a printer file with a secondary 
address of 5, and then when you print CHRS(254) you get your custom 
character. If you have an 07C ROM in your 1 526, SEND A 9 CHARAC- 
TER STRING TO S A. 5 USING AN S BY 9 MATRIX. The last value does 
not print and can be a zero. What does this mean? Have the Commo- 
dore designers run out of coffee (again?) or psst. . .psst are they going 
to break the 8 by 8 barrier? Only time can tell. Commodore for sure 
won't! 



Additional Note For 1526 Owners; While T was exploring these 
wordprocessors, I was amazed to find that most software designers 
had not given serious consideration to the 1 526 printer. This is ironic 
because I526/MPS-802 is more suitable for serious wordprocessing 
than the i525/MPS-801! The 1526 when first introduced had firm- 
ware bugs. It would lock up the serial bus and was sensitive to the 
order in which devices were switched on. A letter from Commodore 
indicates that the latest C64-compatible 1526 had a version 05 ROM 
and that the more recent version 07C was Introduced to increase 
compatibility with the newer +4 and +16 computers. My recent 
experience however indicates that most word processors are allergic to 
the 1526 with version 05 ROM. You would either get no printout (with 
GOLDDISK, unless you use a special version, readily supplied by 
GOLDDISK), strange "?h?HG$-" characters at the head of your docu- 
ment (almost alE word processors) or even a word jumble (LETTER 
WIZARD, DATASOhT). If you have a version 07C ROM all of these will 
work perfectly. BUT if you RUN any other program which uses 



Omnlspel] Spelling Checker; Omniwriter, in addition to being an 
efficient and affordable word processor, has a spelling checking pro- 
gram with a 30,000 word expandable dictionary both of which can be 
copied to your work disks. After working on a document one presses 
the commodore key followed by RUN (SHFT-RUN/STOP). This 
results in the loading and execution of OMNISPELL The program first 
prepares a word-list (about 1-2 min depending on the size of your 
document and word-distribulion). You then have an option of spell- 
checking, list words alphabetically or by frequency. Spell-checking 
compares the words with those in the dictionary and marks and 
displays the unrecognized ones. You then return to your document 
and issue a verify command. Everytime an unrecognized word is 
located you have an option to edit it, skip or accept it or to learn the 
word. Once this is done, you can re-execute OMNISPELL and add any 
new words learned lo the dictionary. This sub-program is reasonably 
fast and is usually used only once after your document is in final 
shape. This however makes OMNIWRITER a very attractive choice. 



Comparison Table 



Advantages 



SPEEDSCRIPT 

Up to 255 columns. Limited CBM 
graphics. Logical cursor move- 
ment. Transpose letter, CHaNge 
case. Recall buffer. Large capac- 
ity. Disk/tape files. VERIFY files. 
Seq formatted hies printable 
without word processor, Easily 
copyable. Very good value for 
money. 



GOLDDISK 

Limited CBM graphics. Right jus- 
tification. Backup utility in- 
cluded. Poor value for money 
(when considering wordproces- 
sor program alone). 



OMNIWRITER 

Good design. 240 column dis- 
play. Good tabulation. Mail 
merg/iabel. Disk/tape files. Ac- 
cepts files from other wordpro- 
cessors, any seq. file from data 
base/spread sheets/lel.com. 
Parallel/IEEE drivers included. 
Supports RS232 printers. Excel- 
lent warning for altered but UN- 
SAVED files. Backup utility for 
dictionary and disks, 30000 + 
words spelling checker. Excel- 
lent value for money. 



SUPERTEXT 

Hires 80 column display. Up to 
132 columns display. Split screen 
edit. Excellent file link. Splitting 
A link \ key programmable- Su- 
perb print package. Good tabula- 
tion. Altered file has a • before 
filename - no other warning. In- 
cludes 2 program disks. Satisfac- 
tory value for money (costliest) 



Disadvantages 



SPEEDSCRIPT 

40 col display. Destructive 
merge. No right justification No 
altered file warning. Does not 
support RS232 printers. No 
backup utility. No mail merge or 
spell-checking. Difficult tabula- 
tion. 



GOLDDISK 

40 column display. Destructive 
merge. No word wrap - only fan 
fold. No screen preview. No 
directory/ DOS. Smallest effec- 
tive text area and no Einked files. 
No altered file warning. Disks 
only. No mail merge or spell- 
checking. Difficult tabulation. No 
headers/ footers. 



OMNIWRITER 

Few CBM graphics. Manual pag- 
ing specially tricky when using 
variable spacing. Copy protected 
- head-bumping. 



SUPERTEXT 

No CBM graphics. Either single 
or double spacing - variable line- 
spacing not permitted. Inconven- 
ient editing. Only seq files. No 
tape access. No mail merge or 
spell-checking. Slow printing. No 
backup utility. 
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News BRK 



Transactor News 

Submitting NEWS BRK 
Press Releases 

If you have a press release which you would 
Mke lo submi! for the NEWS BRK column, 
make sure that the computer or device lor 
which the product is intended is prominently 
noted. We receive hundreds of press releases 
for each issue, and ones whose intended 
readership is not clear must unfortunately go 
straight to the trash bin. \l should also be 
mentioned here that we only print product 
releases which are in some way Applicable to 
Commodore equipment. 

The TransBASlC Disk 

Well over 100 commands and functions have 
been published over the last 8 TransBASlC 
Columns and there are dozens more to come. 
So we've decided lo collect every command, 
including the unpublished ones, and put 
them all on the first release of The TransBA- 
SlC Disk. A reference manual gives examples 
of every command in the library. You simply 
load and run the first program on the disk 
and begin adding command modules. After 
assembling the selected modules, your new 
TransBASlC "dialect" can be saved to disk for 
future use. 

SYMASS 3.0 is the assembler resident on The 
TransBASlC Disk. Its written in machine 
code and was modelled after (and tested with) 
TransBASlC modules. Previously, PAL was 
necessary for doing the final assembly. SY- 
MASS 3.0 will assemble any source code that 
is no more exotic than a typical TransBASlC 
module, but it doesn't output listings or send 
object code to disk. For development pur- 
poses we still recommend PAL (see next 
item), but SYMASS 3.0 makes the TransBA- 
SlC Disk totally self-contained! 

The TransBASlC Disk with reference manual 
is$9.S)5(7% ps! in Ontario), You can use our 
postage paid subscription card to order. 

PAL and POWER: The ToolBox 

Nearly every source code listing in The Trans- 
actor is written in PAL format. We often gel 
requests about obtaining the PAL from Pro- 
Line. But since Pro-Line is a distributor, they 
would refer requests lo a retailer. So to elimi- 
nate a little legwork, The Transactor is offer- 
ing The ToolBox. It contains both the PAL 
Assembler Development System and 
POWER, the Basic editor enhancement pack- 
age. It comes with the disk and two nice 
manuals. Suggested list price is $129,95. Mail 
order from us its just $79.95f And, once 
again, you can use the order card at center 
page. 



The G-Link Interface 

There are a couple of C64 to IEEE interfaces 
available but one you probably haven't heard 
much about is the G-Link, or Clink as it's 
pronounced among the few of us who own 
one. Why do we use Glinks? They're totally 
transparent! The others have "features" like 
machine language monitors and Basic exten- 
sions that tend to inlerlere with certain more 
sophisticated programs. The Clink does none 
of that. Nor does it u.se the RAM that lies 
underneath the BASIC and Kernal ROMs, It 
also has a switch for serial bus operation. It 
comes with installation instructions for 
$49.95, but there are only a few in existence 
so it's first come first served. Once they're 
gone, they're gone. 

Attention Anthology Owners 

The BBS phone numbers section of the Inner 
Space Anthology lists a phone number for 
The Simarillion BBS in Garden Grove, CA. 
The owner of the number informed us that 
although he has a C64, and would also like to 
find the correct number for The Simarillion, 
he is not the number^ you're Eooking for. 
Unfortunately we have misplaced his iden- 
tity, so, "numberi?,, . , if your're listening,. . . 
aren 'i you ready forihe fun and excitement of 
your own BBS. . ? Perhaps someone might 
offer to loan him a modem? and some BBS 
software? The number is on page 89 of the 
Anthology, but use the voice line. 

Events 

World Of Commodore HI 
In Toronto A Success 

The third annual World Of Commodore 111 
held in Toronlo in early December was a 
complete .success, with more than 33,000 
people attending the four-day show. In fact, 
the show was so successful that Commodore 
Business Machines is looking at expansion 
and new features for the next years show. 

The woe is the largest microcomputer show 
in Canada. This year, Commodore and about 
60 other exhibitors displayed, demonstrated 
and sold Commodore related hardware, soft- 
ware, peripherals and accessories. To en- 
hance the visit. Commodore had C64s, 
C12Ss, PC-IOs and Amigas available for use 
and abuse by the patrons of the show. If any 
questions developed. Commodore employ- 
ees could always be found lurking about 
waiting for any opportunity to please. This 
was surely a noteworthy event in Commo- 
dore history! 

" Record sales were achieved by repeat ex- 
hibitors and those displaying for the first time 
were amazed at the interest they attracted 



and the amount of products that sold", s^id 
Robert Graham, Vice-President, Marketing. " 
Virtually all the exhibitors plan to return in 
1986.- 

Along with seminars that often drew more 
than 350 people, musicians, computer ex- 
perts, engineers and graphic artists demon- 
strated the capabilities of the Amiga along 
with the other Commodore product line. As 
well. Commodore helped the Ontario Special 
Olympics for the Mentally Retarded by rais- 
ing $10,000,00 through the raffle of a C128 
system, admissions to a video arcade and the 
sale of magazines and posters. 

C,A.S.E Meeting And Jamboree 1986 

The place to be on the weekend of April 26- 
27, 1986, is at the Opry Land Hotel in Nash- 
ville, Tennessee for the C.A,S,E, annual 
get-together. C.A.SE. (Commodore Associa- 
tion of the Southeast) is a consortium of the 
user groups of the southeast United States, 
formed to better serve the southeastern com- 
munity of Commodore computer users. We 
are a non-profit organization recognized by 
Commodore World, and mstalled with our 
own special messaging area on the Commo- 
dore National Network, Quantum Link, 

We invite the general public to attend our 
two-day Jamboree, There will be vendors 
present as well as .several guest speakers 
furnished by Commodore Business Ma- 
chines, Limited. One admission charge cov- 
ers the general admission to all areas of the 
Jamboree. 

Tickets are available from any C.A.S.E, affili- 
ate club, or by sending S7.50 (US) to C A,S,E. 
at the address below. Everyone is invited lo 
attend this southeastern conference of Com- 
modore computer users. Tickets will be avail- 
able at the door of the Jamboree i986 for 
£10.00, 

Commodore oriented user groups may join 
C.A.S.E. by requesting membership informa- 
tion from C.A.S.E, at the address below. Ven- 
dors may inquire as to possible spaces 
available for the Jamboree 1986 prior to 
March 1, 1986 through the address listed 
below. 

C.A.S.E,, Inc 

PO Box 110386 

Nashville, Tennessee 37222 

Amiga News 

NAAUG For Amiga Users 

The North American Amiga Users Group 
(NAAUG) is distributing its first newsletter as 
of December 24th. NAAUG has contacted 
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various users groups and Amiga dealers who 
have expressed interest In rhe group. Anyone 
inleresled in receiving a free copy of the 
AmigaHelp Newsletter, containing valuable 
inlormation and details on how to join, 
should write: 

North American Amiga Users Group 
P.O. Box 376 
Lemont. PA 16851 

NAAUG offers members a wide range of serv- 
ices for the annual membership fee of $25.00 
(US), which include; a subscription to "Ami- 
gaHelp" newsletter, the Helpline for free one- 
on-one computer advice, one free disk of 
public domain software plus full access to the 
(group's Public Domain library, free classified 
ads to members, bulletin boards, and SIGs. 
For more information contact: 

Richard Shoemaker, Founder 

(814) 237-551 1 , after 4 PM and on wkds. 

BBS For Amiga Owners 

The system supports up/downloads, mes- 
sage boards, Fidonet mail and more. All in- 
terested persons welcome? We have a 
growing list of public domain software availa- 
ble for download, (Also available by mail 
from Kinetic Designs on disks for non- 
modem computer isls.) 

Call: Casa Mi Amiga, (904) 733-4515, 24 
Hours, 16 fvleg Online, Or for more informa- 
lion send a SASE to: 

Kinetic Designs 
Casa Mi Amiga 
1187 Dunbar Ct. 
Orange Pk, FL 32073 

dBx Translator Converts 
dBASE Programs Into "C". 

Desktop A.L has released a translator that 
allows moving dBASE programs into the "C" 
language. The dBx Translator system in- 
cludes a language translator for processing 
dBASE source, and a run-time library tool 
box to replace the dBASE screen handler. 
Once converted, the dBASE code becomes a 
fully functional and controllable "C" program 
giving an application developer complete 
control over his product and release from the 
problems and royalty costs of dBASE, In addi- 
tion, applications can be moved to machines 
where dBASE is not available such as the 
AT5^T 3B2 under UNIX, Altos under XENIX, 
and Macintosh or Amiga systems. 

The system is programmed in standard "C" 
and produces standard "C" from dBASE 
code. The action of the dBx Translator ranges 
from complete translation of some dBASE 
statements to commenting out other state- 
ments that have no parallel in "C", The pro- 
grammer then converts those functions that 
are loo different to allow automatic transla- 
tion. The run-time library provides the "C" 



functions that dBASE has built-in and allows 
dBASE application screens to be functional 
rapidly without major programming effort. 

The system comes with a translation guide 
book which provides programming tips and 
translating techniques about changing 
dBASE code into appropriate "C^' code to 
further assist the programmer. The system is 
available under f^S DOS, (using the ANSI 
screen handler) UNIX and XENIX, (using the 
CURSES screen handling packages) and will 
be available soon lor the Macintosh and 
AMIGA. The package price ranges from 
$350.00 to S 1 ,000,00 (US) depending on sys- 
tem configuration. For more information or 
orders contact: 

Desktop A.L 

1720 Post Road East "3 

Westporl, CT 06880 (203) 255-3400 

The Trading Board BBS 

for the Commodore 64 and C 128 

The second in the Sure Product line, The 
Trading Board offers Up and Downloading 
with New Punter, a time and dale clock, auto 
logon, E-fvlailsend and read with check at log 
on, set log off time and lots more. The system 
package includes a detail manual to help you 
customize the board to your needs, four pro- 
grams to get you started, a detail list and a 
section on advertising your BBS. The system 
will up and down load with one or two drives 
and is compatible with most auto-answer mo- 
dems. For a sample on this amazing system 
call (805) ^92-3668. For more information: 

Terry Hill, Creative Enterprises 
PO Box 4253, 1714 Sanalwood PI. 
Thousand Oaks, CA 
91360 (805)492-0568 



Online News 

2890 Databases Available Online 

The recently published summer 1985 update 
issueof the authoritative "Directory of Online 
Databases" reveals continued growth in the 
online database industry. With a total of 197 
databases going online in the last three 
months, 2890 databases are now being of- 
fered through 442 online services worldwide. 
This impressive growth rale is slightly offset 
by a just-less-than record number of data- 
bases being dropped by the online services. 
Accordingly, this loss is credited to the nor- 
mal housecleaning in the industry in part due 
to repetitive services offered and a narrow 
range of subject coverage. According to Dr. 
Carlos A. Cuadra, president of Cuadra Associ- 
ates, " ... we don't really perceive this as a 
major shakeout comparable to that found in 
other segments of the computer industry. 
Rather, it is part of the perpetual houseclean- 
ing one expects in an industry with a healthy 
number of entrepreneurs/ 
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The ''Directory of Online Databases" is pub- 
lished quarterly and provides accurate and 
comprehensive coverage of all types of data- 
bases that are available to users through on- 
line, interactive systems A one-year 
subscription Includes two complete editions 
and two update supplements. For further in- 
formation, contact: 

Carlos A. Cuadra, President 
Cuadra Associates, Inc^ 
2001 Wilshire Blvd., Suite 305 
Santa fvlonica, CA 
90403 (213)829-9972 

George Novotny, Vice-President 

Applied and Information Sciences 

Elsevier Sciences Publishing Co., Inc. 

52 Vanderbilt Avenue 

New York, NY 

10017 (212) 370-5520, ext 1537 

Tymnet Offers Firsl-Tlme 
Local Access Service In Canada 

Tyn^riet, McDonnell Douglas Nelwork Sys- 
tems Company, has announced it now offers 
a local async dial-up access to its TYMNET 
public data network in Toronto, Canada. No 
other U.S. public data network offers local 
dial-up services anywhere in Canada. 

Now, with a local phone call, Toronto users 
can access the various data bases available 
through the TYMNET network, and can take 
advantage of its numerous value-added fea- 
tures and services including built-in protocol 
conversion, error-correction, comprehensive 
network management, and more. 

Previously, Toronto users had access to TYM- 
NET only by means of X.75 gateways to 
Datapac, Canada's largest public data net- 
work, (These gateways will remain in place 
i nd ef i n i te I y , ho we ve r .) 

TYMNET plans to offer local dial-up access in 
five major Canadian cities by first quarter 
1986, and in every major Canadian city by 
year-end 1986, 

" With local access availability, we can now 
offer Toronto businesses an extremely cost- 
effective, practical data communications so- 
lution for a wide variety of business 
applications," said Neil Sullivan, Tymnet's 
Director of External Services, " For example, 
with a local phone call, Toronto users will be 
able to access IBM hosts running bisync or 
SDLC from inexpensive asynchronous termi- 
nals," 

TYMNET provides local access from more 
than 540 locations in the U.S. and from 65 
countries. 

Tymnet Inc, 

2710 Orchard Pkwy. 

San Jose, CA 95134 

(408)942-5076 DaveTivoi 

{408)942-5209 Lori Waggener 
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Software 

Basic Compiler For The CI 28 

Abacus Software of Grand Rapids, Micfilgan, 
has announced Ihe release of a new Basic 
compiler for the Commodore C-i28, "BASIC- 
128 Compiler". Written in West Germany by 
Tfiomas Helbig, the ^'BASIC-128 Compiler" 
will increase the speed of Basic program exe- 
cution by a factor of 5 to 35. For the ultimate 
in versatility, you can compile Basic pro- 
grams to either pure 8510 machine code, 
very compact P-code, or a combination of 
txith. The choice is yours. 

Included with the ''BASlC-128 Compiler" is 
an 80-paRe instruction Ruide which delails all 
aspects of working with the compiler Simple 
to very advanced features are outlined, in- 
cluding lips and techniques that every pro- 
grammer will appreciate. The suggested retail 
price is $59.85 (US), For more inlormalion, 
contact: 

Abacus Software 

PO, Box 72 II 

2201 Kalamazoo S.E, 

Grand Rapids, Ml 

49510 {616)241-5510 



1) Descriptive Statistics, which calculate the 
arithmetic mean, geometric mean, harmonic 
mean, quartiles, quartile range, mode, me- 
dian, variance, standard deviation, coeffi- 
cient of variation^ and skewness and kurlosis 
index for each group. 

2) Correlation/Regression, which calculates 
and reports all possible correlations in a set of 
data, and allows the user to perform multiple 
linear regression with any combination of 
variables. 

3) Analysis of Variance, which performs an 
analysis of variance on up to nine indepen- 
dent variables arranged with or without re- 
peated measures. In addition, the program 
accepts unequal cell sizes. 

4) Significance Tester, which calculates the 
exact probabilily of 'z' scores, V and F' ratios, 
correlation coefficients (r), and chi squared 
scores, 

5) Data Transformer, which allows the data 
to be manipulated in order to maximize the 
homogeneity of variance. 

6) Random Number Generator, which gener- 
ates up to 6,000 random numbers within a 
range selected by the user. 

7i Permutations and Combinations, which 
calculates the permutations and combina- 
tions possible using the different adding 
rules. 



TAXAID is available on disk or tape for the 
Vic 20 with 16k, the Commodore 64 and the 
Plus/4 at a cost of $39,95 (US), For more 
information contact: 



(218)834-3600 



Taxaid Software, Inc. 
606 Second Avenue SE 
Two Harbors, MN 55616 

Hardware 

Wilanta Descender ROM 



Gel true descenders for the Commodore 801, 
1525, 803, GP-lOO, Hush 80 and similar 
printers with the Wilanta Descender ROMs. 
Features include a uniform character forma- 
tion, no change m existing graphics capabili- 
ties, no change in software compatibility, and 
no change in printer operation. With com- 
plete instructions for an easy installation wifh 
no soldering, only $29.95 {US), $39.95 (Cdn). 
Ontario residents please add 7% provincial 
sales tax. Cheque, money order, Visa or Mas- 
terCard accepted. 

Wilanta Arts 
6943 Barrisdale Drive 
Mississauga, Ontario 
L5N-2H5 (416)858-9298 



Chartpak 128fortheConiinodoreC128 

There's a new Chartpak available for Ihe 
Commodore C-128. "Chartpak-128'\ Taking 
advantage of the new, expanded features of 
the C-128, ■'Charipak-128" now has 3X the 
resolution of the earlier Commodore 64 ver- 
sion. You can now view an entire chart or 
graph, or scroll the screen to see the higher- 
resolution detail. And, utilizing the C128's 
extra RAM, Chartpak allows you to enter a 
greater amount of data in which to build your 
charts, while still retaining those familiar data 
entry/maintenance features- Ihat made the C- 
64 version so successful Through Chartpak 
you can produce high-quality pie, bar, or line 
charts and graphs that, once completed, can 
be printed out to a variety of dot-matrix 
printers. 

Included with Chartpak is a 140-page user's 
guide which contains several tutorials to walk 
you through Ihe building of charts and 
graphs. "Chartpak-128" has a suggested retail 
price of $39.95 {US). For more information, 
contact Abacus Software (above) 

Statistical Programs for Commodores 

David J. Piltenger and Millon H, Hodge of 
The University of Georgia announce the re- 
lease of statistical analyses programs for the 
PET 4032, CBM 8032, and Commodore 64. 
The package contains a utility program, Data 
Manager, which allows the user to enter, edit 
and save to disk a file of data to be analysed. 
Ail of the computational programs are de- 
signed to operate on these data files. The 
computational programs include: 



The program requires a Commodore com- 
puter, disk drive, and prmter. Several of the 
programs have been compiled to optimize 
computation speed, but all of the original 
Basic code is also supplied for users who wish 
to review the algorithm used. A copy of the 
program disk and an operation manual may 
be purchased by sending $10,00 (US) to: 

David J. Pittenger 
Department of Psychology 
The University of Georgia 
Athens, GA 30602 

Bookkeeper's Aid: 

More Than Just A Tax Record System 

Northland Accounting has released the new 
revised editions of the Taxaid" series of 
income tax preparation programs for the 
Commodore 64, Vic 20 and Plus/4 com- 
puters. The programs were written by experi- 
enced tax accountants and are designed for 
home use. The new revised editions include 
aH the latest changes in the tax laws. 

TAXAID is easy to use with a detailed manual 
that leads the user step by step through the 
data entry. The program is menu driven with 
advanced editing features that allow the user 
to make changes and revisions at any time 
during the data entry process. Data files can 
be saved and reloaded at any stage of the 
program, calculations are automatic and all 
tax tables, including income averaging, are 
built in. TAXAID will prepare any [l?S form 
1040, The results can be directed to the moni- 
tor or printer. Low cost updates for future 
years are published yearly. 



AttetiHon B Machine Owners: 
One Megabyte Of RAM Available 

How would all of you Commodore B128/ 
B256 owners like to have a megabyte of RAM 
in your B machines? 

Question - What can you do with a megabyte 
of RAM in your B? 

Answer -SUPERSCRIPT II allows the use of 
banks 2 through 9. That's 8 documents in 
your computer at one time! 

Answer - The 8432 Emulator program, 
which allows Ihe B128 to emulate the Com- 
modore 8032 computer, will let you load 
Basic programs into banks through H with 
a maximum of 12, and allows you to switch 
back and forth between them. That's 12 pro- 
grams in your computer at the same time! 

Question ~ What's involved in the I mega- 
byte expansion? 

Answer - The 1 megabyte consists of 32- 
256k dynamic RAM chips in sockets on the 
original board in place of the 64k RAM chips 
that are there now and a custom memory 
management circuit. 

To find out more about the 1 megabyte ex- 
pansion, contact: 

Fred M. King 
1804 Plover Spring Drive 
Dept. MEMEXB 
Plover, Wisconsin 
54467 (715)341-1149 
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Compu-toons 

The Transactor has been collecting cartoons for almost two 
years. Several of them, for one reason or another, will never be 
published. We're considering the idea of a "Complete Transac- 
tor Cartoon Collection'* - every cartoon ever received, the best, 
and the worst, bound together into a low cost booklet that we 
could also include free with other items or give away at 
computer shows. If you have submitted cartoons that we have 
deemed unsuitable for the magazine, we would still like to 
include them in the "collection". However, we would not be 
able to pay you for them. Should this be unacceptable, please 
contact us and we'll have your drawings returned. Otherwise, 
well send a free copy of The CTCC to everyone who partici- 
pates. 
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JOIN TPUG 

^he largest Commodore Users Gro 

Benefit from: 

Access to library of pubk domain software 
for C-64, VIC 20 and PET/CBM 

Magazine (10 per year) with advice from 

Jim Butterfield 

Brad Bjomdahl 

Liz Deal 



TPUG yearly memberships: 

Regular memberoHendsmeeiinga) 
Student member (fulMlme, attends meetings) 
Associate (Canada) 
Associate (U.S. A.) 

Associate (Overseas — sea mall) 
Associate (Overseas — airmail) 



-S3S.0OCdn. 
-S25.O0Cdn, 
-S25.O0Cdn, 
— $25.00 U.S- 
-S30.00Cdn. 
-535.00 U.S. 
—$45.00 U.S. 



FOR FURTHER INFORMATION: 
Send $1.00 for an information catalogue 

(tell us which machine you use!) 

To: TPUG INC. 
DEPT. A 

101 DUNCAN MILL RD-, SUITE G7 
DON MILLS. ONTARIO 
CANADA M3B1Z3 



COMAL INFO 

If you have COMAL— 

we have information. 



BOOKS: 

• COMAL From A To Z. S6 95 

• COMAL workbook. S6.95 

• Commodore 64 Graphics with COMAL, S14.95 

• COMAL Handbook, S18.95 

• Beginning COMAL, S22.95 ^ ^ ^^ 

• Structured Programming with COMAU 526,95 

• Foundations With COMAL, S19.95 

• Cartridge Graphics and Sound, S9,95 

• Captain comal Gets organized, S19.95 

• Craphics'Primer, S19-95 

• COMAL ZO Packages, S19.95 ^ ^^^ 

• Library of Functions and Procedures. 519.95 

OTHER: 

• COMAL TODAY subscription, 6 issues, S14.95 

• COMAL 014, Cheatsheet keyboard overlay, S3.95 

• COMAL starter Kit 13 disks, 1 book), $29.95 

• 19 Different COMAL Disks only S94.05 

. Deluxe COMAL Cartridge Package. S128.95 
ilnciudes 2 books, 2 disks, and cartridge) 

ORDER NOW: 

can TOLL-FREE 1-800-3 56- 5 52 fl ext 1307 VISA or MasterCard 
ORDERS ONLY Questions and Information must call our 
info Line: 608-222-4^32. Ait orders prepaid onlv— no COD. 
Add S2 per book shjppmg. Send a SASE for FREE Info 
Package or send cneck or monev order in US Dollars to. 

COMAL USERS CROUR U.S,A., LIMITED 

5501 Groveland Ter, Madison, wi 53716 

TRADEMARKS Commodore 64 of Commodore Electronics Lta . 
captain COMAL of comal users Gfouo. u.S A . Ltd. 
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From The Guru Himself! 

The 1986 Commodore Reference Diary 

A 65 page reference section that includes: 

• All hardware specifications including 
theCl28andPClO/20 

• Useful memory locations 

• Useful programs 

• SuperCharls 

• BASIC and machine language hints 

• Hexadecimal conversion 

• Sound, video 

• and more 

The full calendar and date book includes: 

• National holidays in ten countries 

• Personal notes 

• 1987 forward planner 

• Name, address, telephone section 

Just $5.95 

(plus 50C poslage and handNng) 

Order Your Copy Today! 
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Canada 

The Transactor 

500 Steeles Avenue 

Millon, Ontario 

L9T 3P7 



USA 

The Transactor 

277 Linwood Avenue 

Buffalo, New York 

14209 



Dealer Orders: ^. 

Canada USA 

Norland Agencies MicroPace Disiribuling 

251 Nipissing Road 1510 North Neil Street 

Milton, Ontario Champaign, Illinois 

L9T4T7 61820 

(41 6) 876 - 4774 1 800 362-9653 



The Transactor presents, 

The Complete Commodore 

Inner Space Anthology 



The Cons^fet© 




Over 7,000 Delivered Since March '85 

Postage Paid Order Form at Center Page 



